delphi - 如何让 TWebBrowser 忽略其他控件的加速符？

我在启用了 designMode 的表单上放置了一个 TWebBrowser。
在浏览器下方，我有一个关闭按钮，标题设置为“Clos&e”。
当我在 WebBrowser 中编辑文档内容并按下 E 键时，会调用关闭按钮。
它似乎将 TWebBrowser 视为其他不处理键和/或不接受字符(例如 TButton)的控件。

我该如何解决这个问题？

提前致谢。

最佳答案

从 TWebBrowser 下降，覆盖 CN_CHAR 消息处理程序，并返回 0 。使用 Alt+E 触发快捷方式仍然有效。

type
  TWebBrowser = class(SHDocVw.TWebBrowser)
    procedure CNChar(var Message: TWMChar); message CN_CHAR;
  end;

...

procedure TWebBrowser.CNChar(var Message: TWMChar);
begin
  Message.Result := 0;
end;

关于delphi - 如何让 TWebBrowser 忽略其他控件的加速符？，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/2602239/