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

 

Code: ---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. Поэтому предлагаю воспользоваться следующим примером:

Code:

   with MainFrm.RichEdit1 do

   begin

     SelStart := Length(Text);

     Perform(EM_SCROLLCARET, 0, 0);

   end;

 

 

Добавить комментарий

Не использовать не нормативную лексику.

Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.

ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!


Защитный код
Обновить