автопрокрутка текста

← →
zirus (2003-01-08 05:30) [0]

Уважаемые мастера! Я делаю чат: окно текста - memo1. В него пишется текст. Передача между 2 компьютерами со скоростью 300 бод :-). При этом текст пишется в реалтайме(if m>1 then memo1.text:=memo1.text+chr(m);) и в конце строки - memo1.lines.add("");. Как сделать автоматическую прокрутку текста, чтобы была постоянной, я не когда закончится строка?

← →
AlexKr (2003-01-08 09:16) [1]

Если я тебя правильно понял:
var
M: TWMScroll;
begin
...
//для прокрутки в Memo
M.Msg := WM_VSCROLL;
M.ScrollCode := SB_BOTTOM;
...
Memo1.Dispatch( M );
Application.ProcessMessages;
...
end;

Я ползуюсь

SendMessage(RichEdit2.Handle, EM_SCROLLCARET,0,0);

автопрокрутка текста Найти похожие ветки