Как в Memo прокрутить текст
|
Все, конечно же, в курсе, что Аська (ICQ-98, например) при получении сообщения говорит второй любимый американский звук "О-а!" (первый лю- бимый - "Упс!"). Так вот, как-то одна моя знакомая девушка, увидев что- то то ли в окне, то ли по телевизору, произнесла это самое "О-а!". На что я воскликнул: "Ну ты прям как Аська". После чего минут десять объяснял, что я не имел ввиду никакие "какаськи". :))
|
В поле ввода вводите на какую строку нужно сойти, и по нажатию на кнопку эта строка будет попадать о зону видимости:
procedure TForm1.Button1Click(Sender: TObject);
var
line: integer;
begin
line := StrToIntDef(Edit1.Text,1);
Memo1.SelStart := Memo1.Perform(EM_LINEINDEX, line, 0);
Memo1.Perform(EM_SCROLLCARET, 0, 0);
end;
|
|
