Текущий архив: 2002.08.05;
Скачать: CL | DM;
Вниз
Подскажите пожалуйста! Найти похожие ветки
← →
novice_al © (2002-07-23 08:15) [0]Уважаемые мастера! Пожалуйста подскажите! Есть TMemo в нём есть вертиальный скролл.Нужно чтобы при добавлении текста скроллинг работал автоматом в конец текста.
← →
RV © (2002-07-23 08:32) [1]ScrollMessage.Msg:=WM_VScroll;
for i := Memo1.Lines.Count DownTo 0 do
begin
ScrollMessage.ScrollCode:=sb_LineUp;
ScrollMessage.Pos:=0;
Memo1.Dispatch(ScrollMessage);
end;
и по аналогии
← →
MBo © (2002-07-23 08:52) [2]procedure TForm1.Memo1Change(Sender: TObject);
begin
memo1.selstart:=length(memo1.lines.text);
end;
← →
RV © (2002-07-23 09:09) [3]кстати, у меня почему-то скроллинг всегда работает автоматом в конец текста, если добавляю
← →
novice_al © (2002-07-23 09:27) [4]To MBo - Это курсор в конец текста, но не скролл
To RV - а у меня как ни странно не работает
← →
MBo © (2002-07-23 09:33) [5]memo1.perform(EM_LINESCROLL,0,memo1.lines.count);
← →
novice_al © (2002-07-23 09:43) [6]Спасибо! Вот теперь всё работает!
Страницы: 1 вся ветка
Текущий архив: 2002.08.05;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.011 c
