Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

DenisLK © (2002-07-19 11:07:00)
чтобы её было видно?

alexvan (2002-08-07 14:35:00) [1]
Memo1.SelStart:=Length(Memo1.lines.text);
Memo1.perform(EM_LINESCROLL,0,Memo1.lines.count);

Андрей Вдовин (2002-08-07 14:33:00) [2]
Вот нашел один способ правдо корявый, но зато работает.

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;

...

3JIA9I CyKA (2002-08-07 13:32:00) [3]
Спроси в "Сети".
Там точно знают.

Андрей Вдовин (2002-08-07 13:23:00) [4]
Народ Вы не в ту сторону едете...
Нужно, чтобы этот курсор который мы гоняем по
"Memo" можно было еще и увидать, как он там моргает.
Я тоже столкнулся с такой проблемой, но еще ее не решил.
Може кто подскажет...

wicked (2002-07-19 14:18:00) [5]
а может использовать SelStart?...

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

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »