Скачать: CL | DM;

Как в 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;

...

---

← →
alexvan ©   (2002-08-07 14:35) [7]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.012 c