Mega Code Archive
How to automatic scroll in a TMemo
<![CDATA[
Title: How to automatic scroll in a TMemo
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;
]]>