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

[wudi_1982]

怎样检测键盘上的PageDown 和 PageUp 键?
在EDIT组件的ONKEYPRESS事件中,我写

SHOWmessage(IntTostr(Integer(Key)));

标准键都可以检测到,那么怎么检测pageUp和pageDown这样的建

[ehom]

那你说PageDown,PageUp输入的是字符吗?

该事件是响应消息WM_CHAR,只有输入字符(包括控制字符时激发)

根据具体需要改在OnKeyUp,OnKeyDown中获得键值

[cslegend]

在EDIT的 ONKeyDown中检测

[Wnyu]

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

[goomoo]

使用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;

[yutaocool]

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