問題：將 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;

?

轉載于:https://www.cnblogs.com/onechen/p/4355349.html

總結

以上是生活随笔為你收集整理的修复 XE7 , XE8 Frame 内 PopupMenu 快捷键失效问题的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。