Memo的自动滚动

]、。·ˉˇ¨〃々—～‖…’”〕〉》」』〗】∶！＂＇），．：；？］｀ 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;