...ein TMemo automatisch scrollen lassen?

Autor: Thomas Stutz

Kategorie: VCL

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