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

Question

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

我该如何解决这个问题？

提前致谢。

Answer 1

从 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;