我有一个古怪的小应用程序,弹出一个在Delphi中编写的屏幕数字键盘/计算器.如果您按“输入”(数字键盘),您将按“=”,如果您按“返回”(在主键盘上),您将按“确定”,我想这样做.
有一个确定按钮是表单的默认人员,响应进入或返回.
还有一个onkeydown事件处理程序,可能会捕获Enter并返回为vk_return.但它的职责是被默认的“确定”按钮所占据.
如果我可以知道返回和输入之间的区别,那么我可以在OK按钮上摆脱我的默认属性,只需按下OK按钮的单击事件处理程序在form key down函数,但是他们都是VK_RETURN.
@R_403_323@
覆盖WM_KEYDOWN消息处理程序:
procedure WMKeyDown(var Message: TWMKeyDown); message WM_KEYDOWN;
实现它,以便除了您感兴趣的内容之外,它调用祖先,您可以通过密钥数据消息字段中的“扩展”位来检测返回键和输入键之间的区别:
procedure TForm1.WMKeyDown(var Message: TWMKeyDown); const // Message.KeyData format: // [0..15 repCount][16..23 scan code][24 extended bit][25..28 reserved] // [29 context][30 prevIoUs state][31 transition state] KD_IS_EXTENDED = 1 shl 24; begin if Message.CharCode <> VK_RETURN then begin inherited; Exit; end; if (KD_IS_EXTENDED and Message.KeyData) <> 0 then ShowMessage('Keypad Enter') else ShowMessage('Return'); end;