Авто-скрул в Memo [D7, Win2k]
soi.hash © (2007-04-12 11:28:00)
Проблема вот какая:
В 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:00) [1]
Memo1.Lines.Text:=Memo1.Lines.Text+IntToStr(Random(10));
Memo1.Refresh; ?
Memo1.Perform(WM_VSCROLL,1,0);
Наверх 
ЧАТ |
Орешник |
|
