[Back to DELPHI SWAG index]  [Back to Main SWAG index]  [Original]


My response before was "Look into SendMessage, WM_VSCROLL and
SB_PAGEDOWN".  I am happy to provide this code fragment in hopes that you
really *did* look into my suggestion but couldn't figure out how to make it
work.


procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_F8 then
    SendMessage(Memo1.Handle,  { HWND of the Memo Control }
                WM_VSCROLL,    { Windows Message }
                SB_PAGEDOWN,   { Scroll Command }
                0)             { Not Used }
  else if Key = VK_F7 then
    SendMessage(Memo1.Handle,  { HWND of the Memo Control }
                WM_VSCROLL,    { Windows Message }
                SB_PAGEUP,     { Scroll Command }
                0);            { Not Used }
end;

[Back to DELPHI SWAG index]  [Back to Main SWAG index]  [Original]