Procedure ScrollMemo(Memo : TMemo; Direction : char);
begin
case direction of
'a': begin
SendMessage(Memo.Handle, { HWND of the Memo Control }
WM_VSCROLL, { Windows Message }
SB_PAGEDOWN, { Scroll Command }
0) { Not Used }
end;
'y' : begin
SendMessage(Memo.Handle, { HWND of the Memo Control }
WM_VSCROLL, { Windows Message }
SB_PAGEUP, { Scroll Command }
0); { Not Used }
end;
end;
end;
// Kullanimi
procedure TForm1.Button1Click(Sender: TObject);
begin
// PaheDown
ScrollMemo(memo1, 'a');
end;