Как прокрутить TRichEdit в конец?
Falk0ner, вс, 06/07/2008 - 15:34.
Вышеприведенный пример работает отлично в 9x и NT4, но не работает в Windows 2000. Поэтому предлагаю воспользоваться следующим примером:
Существует множество способов, включая и:
{---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;
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;
begin
SelStart := Length(Text);
Perform(EM_SCROLLCARET, 0, 0);
end;
Взято из http://forum.sources.ru
Отправить комментарий