Текущий архив: 2003.01.16;
Скачать: CL | DM;

Вниз

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

← →
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;

---

← →
cdadmitriy ©   (2003-01-08 09:24) [2]

Я ползуюсь

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

---

Страницы: 1 вся ветка

Текущий архив: 2003.01.16;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.019 c