Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Скроллинг текста в Мемо

Автор: Serhik_z 11.4.2005, 12:27

Как правильно сделать скроллинг текста в Мемо.
Автоматический скроллинг.

Код


procedure TForm1.Timer1Timer(Sender: TObject);
begin
SendMessage(Memo1.Handle, EM_Scroll, SB_Linedown, 0); // interval 1000
end;

Автор: Girder 11.4.2005, 12:35

EM_LINESCROLL

Автор: Serhik_z 11.4.2005, 13:33

Girder - Скроллинга нет.
может что не так делаю.

Код


procedure TForm1.Timer1Timer(Sender: TObject);
begin
SendMessage(Memo1.Handle, EM_LINESCROLL, SB_Linedown, 0);
end;

Автор: Snowy 11.4.2005, 14:13

Код

SendMessage(Memo1.Handle,WM_VSCROLL,SB_LINEDOWN,0);

Работает. Проверил.
Если вертикальная линейка прокрутки есть конечно...

Автор: Serhik_z 11.4.2005, 14:17

вертикальная линейка прокрутки есть

Автор: Snowy 11.4.2005, 14:22

Ну так пробуй smile

Если заметил, то сообщение другое smile

Автор: Girder 11.4.2005, 14:26

На одну в низ:

Код

SendMessage(Memo1.Handle, EM_LINESCROLL, 0, 1);

На одну в верх:

Код

SendMessage(Memo1.Handle, EM_LINESCROLL, 0, -1);

На одну в право:

Код

SendMessage(Memo1.Handle, EM_LINESCROLL, 1, 0);

На одну в лево

Код

SendMessage(Memo1.Handle, EM_LINESCROLL, -1, 0);

В конец:

Код

SendMessage(Memo1.Handle, EM_LINESCROLL, 0, Memo1.Lines.Count);

В начало:

Код

SendMessage(Memo1.Handle, EM_LINESCROLL, 0, -Memo1.Lines.Count);

Ну и т.д.

PS: smile

Автор: Serhik_z 11.4.2005, 14:27

Верно, теперь заметил. Заработала.

Код


SendMessage(Memo1.Handle,WM_VSCROLL,SB_LINEDOWN,0);