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

Вниз

RichEdit скроллить до самого конца   Найти похожие ветки 

← →
cyberwolf ©   (2003-07-23 23:48) [0]

Подскажите пожалуйста, как установить положение скролла RichEdit в крайнее нижнее положение. Заранее благодарен.

---

← →
Marser ©   (2003-07-24 00:37) [1]

procedure TForm1.Button1Click(Sender: TObject);
var c:tpoint;
i:integer;
begin
c:=richedit1.CaretPos;
for i:=0 to richedit1.lines.count-c.Y- 2 do
PostMessage(RichEdit1.Handle, WM_VSCROLL, SB_LINEDOWN, 0);
end;

Вместо выделенной двойки можно установить любое число видимых строк-1. В данном случае будет видна самая нижняя строка.

---

← →
cyberwolf ©   (2003-07-24 01:08) [2]

спасибо!!!

---

← →
PKT   (2003-07-24 02:26) [3]

SendMessage(RichEdit1.Handle, WM_VSCROLL, SB_BOTTOM, 0);

---

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

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

Наверх

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