delphi - 如何阻止 TChromium 中的密钥？

Question

这是我的代码：

procedure PreKeyEvent(Sender: TObject; const browser: ICefBrowser;
  const event: PCefKeyEvent; osEvent: PMsg;
  out isKeyboardShortcut, Result: Boolean);
begin
    if (event.windows_key_code = VK_CONTROL) or
    (event.windows_key_code = VK_RMENU) or (event.windows_key_code = VK_LMENU) then
  begin
    event.windows_key_code := 0;
  end;
end;

该IF块工作正常。但是这一行 [ event.windows_key_code := 0;] 不会忽略指定的键。如何使用事件禁用某些键PreKeyEvent？

编辑： 我也尝试将Result参数设置为true. 还是不行。

Answer 1

好的，我意识到不可能单独禁用Ctrl或Alt键。相反，有一个native_key_code为键盘上任何类型的按键提供一个整数值（快捷键有不同的代码）。您可以简单地native_key_code为自己打印值并查看相关的生成代码。

所以在我的情况下，我只需要禁用Ctrl+A和Ctrl+C快捷方式：

procedure PreKeyEvent(Sender: TObject; const browser: ICefBrowser;
  const event: PCefKeyEvent; osEvent: PMsg;
  out isKeyboardShortcut, Result: Boolean);
const
  CtrlA = 1966081;
  CtrlC = 3014657;
begin
  if (event.native_key_code = CtrlA) or (event.native_key_code = CtrlC) then
  begin
    Result := true;
  end;
end;