怎样检测键盘上的PageDown 和 PageUp 键

Question

怎样检测键盘上的PageDown  和 PageUp 键?
在EDIT组件的ONKEYPRESS事件中,我写SHOWmessage(IntTostr(Integer(Key)));标准键都可以检测到,那么怎么检测pageUp和pageDown这样的建

Answer 1

那你说PageDown,PageUp输入的是字符吗?该事件是响应消息WM_CHAR,只有输入字符(包括控制字符时激发)根据具体需要改在OnKeyUp,OnKeyDown中获得键值

Answer 2

在KeyDown中写
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
SHOWmessage(IntTostr(Integer(Key)));
end;

Answer 3

使用ApplicationEvents控件：procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
begin
  if (msg.message=wm_keydown) and (msg.wParam=34) then  //34:pagedown  33:pageup
    showMessage('pageDown')
end;

Answer 4

PageUp的虚拟键值是33
PageDown的虚拟键值是34
你可以在EDIT组件的ONKEYdown事件中写
if key=33 then
   showmessage('PageUp');