...ein TMemo automatisch scrollen lassen?

procedure ScrollMemoDown(Memo: TMemo);
begin
  SendMessage(Memo.Handle,{ HWND of the Memo Control }
    WM_VSCROLL,    { Windows Message }
    SB_PAGEDOWN,   { Scroll Command }
    0)             { Not Used }
end;


procedure ScrollMemoUp(Memo: TMemo);
begin      
  SendMessage(Memo.Handle, { HWND of the Memo Control }
    WM_VSCROLL,    { Windows Message }
    SB_PAGEUP,     { Scroll Command }
    0);            { Not Used }
end;


// Example, Beispiel:

procedure TForm1.Button1Click(Sender: TObject);
begin  
  ScrollMemoDown(Memo1);
end;

printed from
www.swissdelphicenter.ch
developers knowledge base