Текущий архив: 2007.06.10;
Скачать: 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 вся ветка
Текущий архив: 2007.06.10;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.026 c
