Авто-скрул в 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);

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