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);

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