Srollbar running

[mr-unbekannt]

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
var
  ScrollMessage:TWMVScroll;

begin
  ScrollMessage.Msg:=WM_VScroll;
   ScrollMessage.ScrollCode:=sb_LineDown;
   Memo1.Dispatch(ScrollMessage);
end;

sooo...