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

Главная страница сайта "Delphi Sources"

Раздел "Исходники"

Форум

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

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

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;

или

SendMessage(RichEdit1.Handle, EM_SCROLL, SB_LINEDOWN, 0);