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

Question

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

我该如何解决这个问题？

提前致谢。

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;