Mega Code Archive

 

Categories / Delphi / VCL

 

Scroll a Memo

Title: Scroll a Memo Use SenMesage function with EM_LINESCROLL message: procedure TForm1.Button2Click(Sender: TObject); begin SendMessage(Memo1.Handle,EM_LINESCROLL,0,-1); end;