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

Question

我在启用了设计模式的表单上放置了一个 TWebBrowser。
在浏览器下方，我有一个关闭按钮，其标题设置为“Clos&e”。
当我在 Web 浏览器中编辑文档内容并按下 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;