Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.017 c
1-13652
DKalinin
2002-07-23 13:05
2002.08.05
Подскажите, пожалуйста, как получить список файлов в директории.


1-13654
Allig
2002-07-23 12:27
2002.08.05
Ребята! Срочно нужна помощь!


4-13848
a_Lan
2002-05-28 20:45
2002.08.05
Диалоговое окно открытия файла


3-13560
UnDISCOvery
2002-07-05 14:36
2002.08.05
База Access. Что нужно для работы с ней ?


1-13588
c0pYc@t
2002-07-24 14:22
2002.08.05
Thread