如何攔截Firemonkey中的菜單快捷事件

Question

在Firemonkey窗體上添加主菜單和單個子菜單項。將子菜單的快捷方式屬性設置爲Ctrl-A。

無論如何在Ctrl-A進入菜單之前攔截Ctrl-A？看起來OnKeyDown形式沒有看到它。

Answer 1

表單檢查是否存在想要處理密鑰的子組件。如果鑰匙被處理，那就是故事的結尾。

這是一個快速的&髒方式，可以防止TMenuItem使用插入器處理密鑰。

type 
    TMenuItem = class(FMX.Menus.TMenuItem) 
    protected 
    procedure DialogKey(var Key: Word; Shift: TShiftState); override; 
    end; 


procedure TMenuItem.DialogKey(var Key: Word; Shift: TShiftState); 
begin 
    if (ssCtrl in Shift) and (Key = 65){A} then exit;  
    inherited; 
end; 

如果你正在使用的行爲，那麼你必須重寫TActionList的DialogKey功能以同樣的方式。