在Delphi中捕获F10

Question

我正在尝试在Delphi中捕获 F10 键，但它似乎继续激活菜单，因为它从vk_F10转换为vk_menu或其他东西。

Answer 1

添加到我的主窗体的以下OnKeyDown事件应该有效。请注意，您需要将key参数设置为零以防止菜单激活：

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if key = VK_F10 then begin
     Label1.Caption := 'You hit F10';
     key := 0;
   end;
end;

Answer 2

如果你在Windows上，这里有一些使用Windows API进行键盘钩子的代码：http://www.delphitricks.com/source-code/windows/install_a_keyboard_hook.html