如何用小键盘上的数字1和2模拟pageup和pagedown功能使其且有翻页功能

Question

小键盘上的1按下就
sendmessage(memo1.Handle,WM_VSCROLL,sb_pageup,0);
小键盘上的2按下就
sendmessage(memo1.Handle,WM_VSCROLL,sb_pagedown,0);

Answer 1

VK_NUMPAD0 60 Numeric keypad 0 key 
VK_NUMPAD1 61 Numeric keypad 1 key 
VK_NUMPAD2 62 Numeric keypad 2 key 
VK_NUMPAD3 63 Numeric keypad 3 key 
VK_NUMPAD4 64 Numeric keypad 4 key 
VK_NUMPAD5 65 Numeric keypad 5 key 
VK_NUMPAD6 66 Numeric keypad 6 key 
VK_NUMPAD7 67 Numeric keypad 7 key 
VK_NUMPAD8 68 Numeric keypad 8 key 
VK_NUMPAD9 69 Numeric keypad 9 key 
这些是小键盘的数字键的键值～～～～
VK_PRIOR 21 PAGE UP key 
VK_NEXT 22 PAGE DOWN key 
这些是pageup和pagedown的键值～～

Answer 2

谢过了。。tikkypeng(千两狂死郎)　
呵呵。不知道能不能用
sendmessage(memo1.handel,wm_char,vk_prior，0)来实现。。
我试试。

Answer 3

PostMessage(Object.Handle, WM_KEYDOWN, 输入你想要模拟按键的键值, 0)
你试试～～判断出是不是按了小键盘上的数字1和2
然后模拟按键～～procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key=VK_NUMPAD1 then
  begin
     PostMessage(memo1.Handle, WM_KEYDOWN,VK_NEXT, 0);
  end;
end;没问题的～～

Answer 4

不过我觉得发,WM_VSCROLL应盖是更好的。。