ActionList中Action的快捷鍵

 

本文的目的是說明，這里的快捷鍵是如何被觸發的。

 

    從控件自身來看，快捷鍵的進入點是在TWincontrol.IsMenuKey。在分析IsMenuKey之前，我們先看一下IsMenuKey是哪里被調用的？

    搜索Controls.Pas，可以發現，他是在CNKeyDown事件里被觸發的，如下(Line 13)：

var Mask: Integer; begin with Message do begin Result := 1; if IsMenuKey(Message) then Exit; if not (csDesigning in ComponentState) then begin if Perform(CM_CHILDKEY, CharCode, Integer(Self)) <> 0 then Exit; Mask := 0; case CharCode of VK_TAB: Mask := DLGC_WANTTAB; VK_LEFT, VK_RIGHT, VK_UP, VK_DOWN: Mask := DLGC_WANTARROWS; VK_RETURN, VK_EXECUTE, VK_ESCAPE, VK_CANCEL: Mask := DLGC_WANTALLKEYS; end; if (Mask <> 0) and (Perform(CM_WANTSPECIALKEY, CharCode, 0) = 0) and (Perform(WM_GETDLGCODE, 0, 0) and Mask = 0) and (GetParentForm(Self).Perform(CM_DIALOGKEY, CharCode, KeyData) <> 0) then Exit; end; Result := 0; end;

 

那么，CNKeyDown又是如何響應的呢？這就要從消息進入的源頭查找——Application.IsKeyMsg，其實現如下：

var Wnd: HWND; begin Result := False; with Msg do if (Message >= WM_KEYFIRST) and (Message <= WM_KEYLAST) then begin Wnd := GetCapture; if Wnd = 0 then begin Wnd := HWnd; if (MainForm <> nil) and (Wnd = MainForm.ClientHandle) then Wnd := MainForm.Handle else begin // Find the nearest VCL component. Non-VCL windows won't know what // to do with CN_BASE offset messages anyway. // TOleControl.WndProc needs this for TranslateAccelerator while (FindControl(Wnd) = nil) and (Wnd <> 0) do Wnd := GetParent(Wnd); if Wnd = 0 then Wnd := HWnd; end; if SendMessage(Wnd, CN_BASE + Message, WParam, LParam) <> 0 then Result := True; end else if (LongWord(GetWindowLong(Wnd, GWL_HINSTANCE)) = HInstance) then begin if SendMessage(Wnd, CN_BASE + Message, WParam, LParam) <> 0 then Result := True; end; end; end;   

SendMessage(Wnd, CN_BASE + Message, WParam, LParam)預先讓控件處理此類消息，然后繼續派送WM_XXXX。

 

    OK，回到IsMenuKey這個觸發快捷鍵的關鍵部位。先看其代碼：

var Control: TWinControl; Form: TCustomForm; LocalPopupMenu: TPopupMenu; begin Result := True; if not (csDesigning in ComponentState) then begin Control := Self; while Control <> nil do begin LocalPopupMenu := Control.GetPopupMenu; if Assigned(LocalPopupMenu) and (LocalPopupMenu.WindowHandle <> 0) and LocalPopupMenu.IsShortCut(Message) then Exit; Control := Control.Parent; end; Form := GetParentForm(Self); if (Form <> nil) and Form.IsShortCut(Message) then Exit; end; with Message do if SendAppMessage(CM_APPKEYDOWN, CharCode, KeyData) <> 0 then Exit; Result := False;     

取得Form := GetParentForm(Self);然后Form.IsShortCut(Message) ;

IsShortCut實現過程就不貼代碼了（避免篇幅太長），自己看一下代碼就了解了。

 

但這里要注意GetParentForm，假設有兩個form：A和B，B嵌入A，這時，我們這樣GetParentForm(Self);取得B上面的控件的父窗口是誰，最終會是A（這里有個前提：嵌入的方式是指定Parent）。

所以，若A中有快捷鍵和B中Action的快捷鍵有沖突，那么B的快捷鍵就不會被觸發（因為被A給處理了）。

下面是GetParentForm做法，這是D5的實現方式，雖然之后的版本有所改動，但結果是一樣的

function GetParentForm(Control: TControl): TCustomForm; begin while Control.Parent <> nil do Control := Control.Parent; if Control is TCustomForm then Result := TCustomForm(Control) else Result := nil; end;