delphi - TWebBrowser に他のコントロールのアクセラレータ文字を無視させる方法は?

Question

designMode が有効なフォームに TWebBrowser を配置しました。
ブラウザの下に、キャプションが「閉じる」に設定された閉じるボタンがあります。
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;