修復 XE7 , XE8 Frame 內 PopupMenu 快捷鍵失效問題

問題：將 Frame 含 PopupMenu 放置 Form 后，在 Frame 里的 PopupMenu 失效，無法按快捷鍵。

適用：(XE7 update 1 / XE8) for Windows 平臺

修正方法：

請將源碼 FMX.Forms.pas?復制到自己的工程目錄里，再進行修改。

找到 TCommonCustomForm.KeyDown?函數，修改如下：

procedure TCommonCustomForm.KeyDown(var Key: Word; var KeyChar: System.WideChar; Shift: TShiftState);..... 省略 ......{+++>}// 遍歷所有的 Menufunction FindMenu(c: TFmxObject): TFmxObject;var i: Integer;beginif c is TFmxObject thenfor i:=0 to TFmxObject(c).ChildrenCount - 1 dobeginif TFmxObject(c).Children[i] is TMainMenu thenTMainMenu(TFmxObject(c).Children[i]).DialogKey(Key, Shift)else if TFmxObject(c).Children[i] is TPopupMenu thenTPopupMenu(TFmxObject(c).Children[i]).DialogKey(Key, Shift);FindMenu(TFmxObject(c).Children[i]);end;end;
{<+++}varControl: IControl;
begin..... 省略 ......// 3. perform key in other Menusfor I := ChildrenCount - 1 downto 0 doif Children[i] <> FocusPopup thenbegin{+++>}    FindMenu(Children[I]); // 加入這行：遍歷所有的 Menuif Children[I] is TMainMenu thenTMainMenu(Children[I]).DialogKey(Key, Shift)else if Children[I] is TPopupMenu thenTPopupMenu(Children[I]).DialogKey(Key, Shift);if Key = 0 thenExit;end;..... 省略 ......end;

?