Прокрутка в Memo

← →
XProger © (2004-11-24 02:12) [0]

По мере работы программы в Memo добавляется неий текст. Как вертикальный скроллбар этой мемо протянуть вниз, до самого конца текста?
Пытался посылать SendMessage на Memo.Handle ничего не вышло... :(

← →
MTsv DN (2004-11-24 10:04) [1]

Привет, XProger ©...

Вот ответ на твой вопрос...
////////////////////////////////////////////
procedure TForm1.Button1Click(Sender: PObj);
var
i : integer;
begin
for i := 0 to 1000 do
begin
Form1.Memo1.Add("Line "+int2str(i)+#13#10);
Form.ProcessMessages;
SendMessage(Memo1.Handle, EM_SCROLL, SB_BOTTOM, 0);
end;
end;
////////////////////////////////////////////

Успехов... MTsv DN

← →
Gandalf © (2004-11-24 10:48) [2]

Пожалуй побавлю в FAQ

← →
Владимир Кладов (2004-11-24 16:13) [3]

или так:
Memo1.Add( Txt + #13#10 ); Memo1.SelStart := MaxInt; Memo1.Perform( EM_SCROLLCARET, 0, 0 );

MTsv DN, Большое спасибо...
Владимир Кладов, и тебе тож за аналогичный способ...

Просто я - извращенец, и писал что-то наподобии этого :)
while (LOWORD(SendMessage(MemoHandle, EM_SCROLL, SB_PAGEDOWN,0))<> 0) do;
Хотя должно было работать :)

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