在Delphi中捕获F10

Question

我试图F10在Delphi中捕获密钥,但它似乎继续激活菜单,因为它从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;