Скачать: CL | DM;

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 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.004 c