Delphi - база знаний


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


Как прокрутить 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

Взято с Исходников.ru



Начало  Назад  Вперед