Форум: "Начинающим";
Текущий архив: 2011.09.11;
Скачать: [xml.tar.bz2];
Вниз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.
← →
Германн © (2011-05-30 16:22) [8]Попробуй так
SendMessage(Memo2.Handle, WM_VSCROLL, SB_BOTTOM, 0);
← →
And7 © (2011-05-30 16:39) [9]Германн Спасибо. Так получилось:
SendMessage(Memo2.Handle, WM_VSCROLL, SB_BOTTOM, 0);
← →
RWolf © (2011-05-30 17:00) [10]разве memo1.lines.add(str) не скроллит текст автоматически?
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2011.09.11;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.005 c