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

Авто-скрул в Memo   Найти похожие ветки 

← →
soi.hash   (2007-04-12 11:28) [0]

Проблема вот какая:
В Memo1 через поле Text добовляю по символу с вертикальным скрулом вот так:

//--------------------------------------------------------

Memo1.Lines.Text:=Memo1.Lines.Text+IntToStr(Random(10));

//--------------------------------------------------------

после когда скрул становится активным
прокручиваю вот таким способом:

//--------------------------------

Memo1.Perform(WM_VSCROLL,1,0);

//--------------------------------

так вот если каждую команду сделать на отдельную кнопку то всё работает, а стоит их тока написить вот так:

//-------------------------------------------------------------

Memo1.Lines.Text:=Memo1.Lines.Text+IntToStr(Random(10));
Memo1.Perform(WM_VSCROLL,1,0);

//-------------------------------------------------------------

то скрул не уходит до конца и поркрутка не работает.


Подскажите в чём проблема.
Заранее СПАСИБО.

---

← →
Darvin ©   (2007-04-12 11:56) [1]

Memo1.Lines.Text:=Memo1.Lines.Text+IntToStr(Random(10));
Memo1.Refresh; ?
Memo1.Perform(WM_VSCROLL,1,0);

---

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

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



Память: 0.45 MB
Время: -0.976 c