Как в Memo перейти на последнюю строку?

← →
DenisLK © (2002-07-19 11:07) [0]

чтобы её было видно?

← →
Andrey007 (2002-07-19 13:03) [1]

Есть 2 способа заполнения TMemo:
1) Memo.Text:=Memo.Text+"твоя строка" и
2) Memo.Lines.Add("твоя строка")
Один из этих способов делает так, что кусор остаётся в начале, а другой - что в конце. Какой куда отсылает курсор - не помню. То есть, если Вам надо изменить положение кусора после заполнение, то можно изменить способ заполнения TMemo. А вообще SetCursorPos.

← →
MsGuns © (2002-07-19 13:10) [2]

>Andrey007
Оба способа пасуют, когда надо вставить текст в текущую позицию курсора мемо. Есть способ:
Text := "Что-нибудь ";
for i := 1 to Length(Text) do
SendMessage(Form1.Memo1.Handle,WM_CHAR,WORD(Text[i]),0);

← →
wicked © (2002-07-19 14:18) [3]

а может использовать SelStart?...

← →
Андрей Вдовин (2002-08-07 13:23) [4]

Народ Вы не в ту сторону едете...
Нужно, чтобы этот курсор который мы гоняем по
"Memo" можно было еще и увидать, как он там моргает.
Я тоже столкнулся с такой проблемой, но еще ее не решил.
Може кто подскажет...

← →
3JIA9I CyKA © (2002-08-07 13:32) [5]

Спроси в "Сети".
Там точно знают.

← →
Андрей Вдовин (2002-08-07 14:33) [6]

Вот нашел один способ правдо корявый, но зато работает.

var
i, x: Integer

...

x:= Memo1.SelStart;
Memo1.SelStart:= 0;
For i:= 0 to x do
keybd_event(VK_LEFT, 0, 0, 0 );
Memo1.SelStart:= x;

...

Memo1.SelStart:=Length(Memo1.lines.text);
Memo1.perform(EM_LINESCROLL,0,Memo1.lines.count);

Как в Memo перейти на последнюю строку? Найти похожие ветки