Управление скроллбаром в окне Richedit

[semantics]

Есть окно RichEdit с вертикальным скроллбаром.
Нужно, чтобы при открытии окна ползунок скроллбара стоял в нижней позиции, т.е. в окне отображалась последняя строка текста.
Вроде бы есть свойство TScrollBar.Position, но как его найти у объекта RichEdit непонятно.

 

[qwertyu]

Программист я начинающий так что это не идеальный вариант но все же: поставь компонент ScrollBar и свяжи его с RichEdit(если можно) там есть свойство Position

 

[vital]

Эх.. тема аж с мая висит..
ричедит.SelStart := Length(ричедит.lines.Text);

ричедит.Perform(EM_SCROLLCARET, 0, 0);

Вот и все.. Эх, жаль, что никому уже не надо..

 

[semantics]

Надо, надо!
Сейчас попробую

 

[semantics]

Что-то у меня не получилось. Движок по-прежнему в верхней позиции.
Привожу процедуру.

procedure TDATABASE.Button1Click(Sender: TObject);
begin
Form21.RichEdit1.SelStart:=Length(Form21.RichEdit1.Lines.Text);
Form21.RichEdit1.Perform(EM_SCROLLCARET, 0, 0);
Form21.show;
end;

 

[zubr]

RichEdit1.Perform(WM_VSCROLL, SB_BOTTOM, 0);

 

[vital]

2zubr
Как показала практика, это, почему-то, работает не всегда. А вышенаписанный вариант - я спер где-то из гугла)

 

[semantics]

Последний вариант:

RichEdit1.Perform(WM_VSCROLL, SB_BOTTOM, 0);

у меня работает.
Спасибо!

 

[vital]

у меня работает.

То что пишет Zubr всегда работает)