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

Взято из http://forum.sources.ru

Отправить комментарий

Проверка
Антиспам проверка
Image CAPTCHA
...