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

Тема в разделе "Delphi - Компоненты", создана пользователем semantics, 8 май 2009.

Статус темы:
Закрыта.
  1. semantics

    semantics Гость

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

    qwertyu Гость

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

    vital Больной Компом Детектед

    Регистрация:
    29 янв 2006
    Сообщения:
    2.468
    Симпатии:
    27
    Эх.. тема аж с мая висит..
    ричедит.SelStart := Length(ричедит.lines.Text);

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

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

    semantics Гость

    Надо, надо!
    Сейчас попробую
     
  5. 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;
     
  6. zubr

    zubr Гость

    RichEdit1.Perform(WM_VSCROLL, SB_BOTTOM, 0);
     
  7. vital

    vital Больной Компом Детектед

    Регистрация:
    29 янв 2006
    Сообщения:
    2.468
    Симпатии:
    27
    2zubr
    Как показала практика, это, почему-то, работает не всегда. А вышенаписанный вариант - я спер где-то из гугла)
     
  8. semantics

    semantics Гость

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

    RichEdit1.Perform(WM_VSCROLL, SB_BOTTOM, 0);

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

    vital Больной Компом Детектед

    Регистрация:
    29 янв 2006
    Сообщения:
    2.468
    Симпатии:
    27
    То что пишет Zubr всегда работает)
     
Загрузка...
Статус темы:
Закрыта.

Поделиться этой страницей