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

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

我怎样才能解决这个问题

---

提前感谢。

从TWebBrowser下降，覆盖

CN\u 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;

---

它起作用了，但我需要将MessageResult从1更改为0。TksYeah，如果结果为：=1，则键入无效。如果你改变结果：= 0它工作…翻译到C++ Builder