Scoll en Richedit ned til bunden

Dette skulle virke....

Smilly

Var
ScrollMessage:TWMVScroll;

    ScrollMessage.Msg:=WM_VScroll;
    for i := richedit1.Lines.Count DownTo 0 do
    begin
        ScrollMessage.ScrollCode:=sb_LineUp;
        ScrollMessage.Pos:=0;
        richedit1.Dispatch(ScrollMessage);
    end;

Hov jeg så ikke du ville til bunds, dette scroller op, men okay, det eneste du skal ændre for at gå den anden vej er sb_LineUp->sb_LineDown, og vende løkken om....

Smilly

>>Smilly, Det virker ikke som det jeg gerne vil ha. Når du scroller ned på den måde kommer du for langt ned.

En måde der virker HELT som det jeg vil ha er:
-- 
  Richedit1.Perform(WM_VSCROLL,SB_BOTTOM,0);
  Richedit1.Perform(WM_VSCROLL,SB_PAGEUP,0);