德尔福:我可以区分小键盘的回车键和回车吗？

Question

我有一个古怪的小应用程序弹出一个用Delphi编写的屏幕数字键盘/计算器.我想这样做,如果按下"输入"(在数字键盘上),你按'=',如果你按'返回'(在主键盘上),你就按'确定'.

有一个OK按钮是表单的默认人物,它响应命中输入或返回.还有一个onkeydown事件处理程序,可能会捕获Enter并返回为vk_return.但它的职责被默认的"确定"按钮篡夺.

如果我可以知道return和enter之间的区别,那么我可以在OK按钮上删除我的默认属性,只需按下表单按键功能上的OK按钮的click事件处理程序,但是它们都是VK_RETURN.

Answer 1

覆盖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;