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

Question

我有一个TWebBrowser放在一个启用了designMode的表单上.
浏览器Bellow我有一个关闭按钮,标题设置为'Clos&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;