Author: Jonas Bilinkevicius

How to scroll a TMemo through code

Answer:
1   
2   procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
3   begin
4     if Key = VK_F8 then
5       SendMessage(Memo1.Handle, WM_VSCROLL, SB_PAGEDOWN, 0)
6     else if Key = VK_F7 then
7       SendMessage(Memo1.Handle, WM_VSCROLL, SB_PAGEUP, 0);
8   end;