VCLスタイルメニューのホットキーの不一致

Question

VCLスタイルを有効にすると、メニュー内の項目がホットキーで選択されます。Altキーを押さなくても、が押されました。

これは残りのユーザーインターフェイスを妨げ、スタイルライブラリがホットキーの動作を変更することが非常に奇妙に感じられます。

どういうわけかこの不一致を削除できますか？

ノーマル：「A」を押すと、メインメニューがアクティブになりません（Alt + Aが機能します）。

スタイル付き： "" メインメニューをアクティブに押します。 注：Altキーを使用しないでください。

私のテストプロジェクトは、誰もがそれを試してみたい場合にはhereあります。

Answer 1

この問題は、メッセージのCM_DIALOGCHARを扱うTFormStyleHook.CMDialogChar方法に関連すると思われるキーAltキーが押された場合、元のメソッドがチェックされていません。

私はこのスタイルのフックを書いて、問題を解決しました。 Quality Centralページにこのケースを報告覚え、このよう

TStyleManager.Engine.RegisterStyleHook(TForm9, TFormStyleHookFix); 

で

type 
    TFormStyleHookFix= class (TFormStyleHook) 
    procedure CMDialogChar(var Message: TWMKey); message CM_DIALOGCHAR; 
    end; 

    TFormStyleHookHelper= class helper for TFormStyleHook 
    private 
    function CheckHotKeyItem(ACharCode: Word): Boolean; 
    end; 



{ TFormStyleHookFix } 

procedure TFormStyleHookFix.CMDialogChar(var Message: TWMKey); 
begin 
    if ((Message.KeyData and $20000000) <> 0) and (CheckHotKeyItem(Message.CharCode)) then 
    begin 
     Message.Result := 1; 
     Handled := True; 
    end 
end; 

{ TFormStyleHookHelper } 
function TFormStyleHookHelper.CheckHotKeyItem(ACharCode: Word): Boolean; 
begin 
    Result:=False; 
    if Self.FMainMenuBarHook<>nil then 
    Result:=Self.FMainMenuBarHook.CheckHotKeyItem(ACharCode); 
end; 

使用。