15 мая 2023 года "Исходники.РУ" отмечают своё 23-летие!
Поздравляем всех причастных и неравнодушных с этим событием!
И огромное спасибо всем, кто был и остаётся с нами все эти годы!

Главная Форум Журнал Wiki DRKB Discuz!ML Помощь проекту




Как прокрутить TRichEdit в конец

Существует множество способов, включая и:

---DO NOT USE THIS EXAMPLE - SEE BELOW INSTEAD---
    with MainFrm.RichEdit1 do
    begin
      perform (WM_VSCROLL, SB_BOTTOM, 0);
      perform (WM_VSCROLL, SB_PAGEUP, 0);
    end;
-------------------------------------------------

Вышеприведённый пример работает отлично в 9x и NT4, но не работает в Windows 2000. Поэетому предлагаю воспользоваться следующим примером:

    with MainFrm.RichEdit1 do
    begin
      SelStart := Length(Text);
      Perform(EM_SCROLLCARET, 0, 0);
    end;