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

  • Автор темы semantics
  • Дата начала
Статус
Закрыто для дальнейших ответов.
S

semantics

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

qwertyu

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

vital

Больной Компом Детектед
29.01.2006
2 432
42
#3
Эх.. тема аж с мая висит..
ричедит.SelStart := Length(ричедит.lines.Text);

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

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

semantics

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

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

vital

Больной Компом Детектед
29.01.2006
2 432
42
#7
2zubr
Как показала практика, это, почему-то, работает не всегда. А вышенаписанный вариант - я спер где-то из гугла)
 
S

semantics

Гость
#8
Последний вариант:

RichEdit1.Perform(WM_VSCROLL, SB_BOTTOM, 0);

у меня работает.
Спасибо!
 
Статус
Закрыто для дальнейших ответов.