Skrolbar в Memo

← →
And7 © (2011-05-30 03:39) [0]

Как cделать чтобы вертикальная полоса ScrollBars в Memo автоматически сдвигалась вниз (чтоб была видна последняя строка)? Есть такие настройки в Memo.Properties ?

← →
Германн © (2011-05-30 03:46) [1]

> Есть такие настройки в Memo.Properties ?
>

Настроек таких нет.

← →
And7 © (2011-05-30 03:48) [2]

А тогда что можно сделать в таком случае ?

← →
And7 © (2011-05-30 03:55) [3]

Здесь добавляется строка:
Memo2.Text:=Memo2.Text+#13#10+Memo1.Text;
И когда этих строк становится много, то они в окне Memo не помещаются, а скролбар при следующем добавлением строки переходит не вниз на последнюю строку, а стоит на месте. Только вручную можно его сдвинуть.

← →
And7 © (2011-05-30 04:02) [4]

А как реализовать автоматически ?

← →
Gu (2011-05-30 04:32) [5]

http://www.kansoftware.ru/?tid=5191

← →
Dennis I. Komarov © (2011-05-30 09:02) [6]

> А как реализовать автоматически ?

Надо отправить окну соответствующее сообщение.

← →
And7 © (2011-05-30 16:13) [7]

Попробовал так:

procedure TForm1.Button15Click(Sender: TObject);
begin
Memo2.Text:=Memo2.Text+#13#10+Memo1.Text;
Memo2.Perform(WM_VScroll, SB_LINEDOWN,0);
end;

Не получается.
Пробовал также ставить SB_ENDSCROLL
тоже не получилось.
Хотя в Memo2.Properties.ScrollBars отмечено ssVertical.

Попробуй так
SendMessage(Memo2.Handle, WM_VSCROLL, SB_BOTTOM, 0);

Германн Спасибо. Так получилось:
SendMessage(Memo2.Handle, WM_VSCROLL, SB_BOTTOM, 0);

разве memo1.lines.add(str) не скроллит текст автоматически?

Skrolbar в Memo Найти похожие ветки