修复 XE7 , XE8 Frame 内 PopupMenu 快捷键失效问题

发布时间：2020-12-15 04:36:21 所属栏目：大数据来源：网络整理

导读：问题：将 Frame 含 PopupMenu 放置 Form 后，在 Frame 里的 PopupMenu 失效，无法按快捷键。适用：( update 1 / ) for Windows 平台修正方法：请将源码 FMX.Forms.pas复制到自己的工程目录里，再进行修改。找到 TCommonCustomForm.KeyDown函数，修改如下

问题：将 Frame 含 PopupMenu 放置 Form 后，在 Frame 里的 PopupMenu 失效，无法按快捷键。

适用：( update 1 / ) for Windows 平台

修正方法：

请将源码 FMX.Forms.pas复制到自己的工程目录里，再进行修改。

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

TCommonCustomForm.KeyDown( Key: Word; ..... 省略 ......

{+++>}
// 遍历所有的 Menu
function FindMenu(c: TFmxObject): TFmxObject;
var i: Integer;
begin
if c is TFmxObject then
for i:=0 to TFmxObject(c).ChildrenCount - 1 do
begin
if TFmxObject(c).Children[i] is TMainMenu then
TMainMenu(TFmxObject(c).Children[i]).DialogKey(Key,Shift)
else if TFmxObject(c).Children[i] is TPopupMenu then
TPopupMenu(TFmxObject(c).Children[i]).DialogKey(Key,Shift);
FindMenu(TFmxObject(c).Children[i]);
end;
end;
{<+++}

var
Control: IControl;
begin

..... 省略 ......

  </span><span style="color: #008000;"&gt;//</span><span style="color: #008000;"&gt; 3. perform key in other Menus</span>
  <span style="color: #0000ff;"&gt;for</span> I := ChildrenCount - <span style="color: #800080;"&gt;1</span> <span style="color: #0000ff;"&gt;downto</span> <span style="color: #800080;"&gt;0</span> <span style="color: #0000ff;"&gt;do</span>
    <span style="color: #0000ff;"&gt;if</span> Children[i] <> FocusPopup <span style="color: #0000ff;"&gt;then</span>
    <span style="color: #0000ff;"&gt;begin</span>

{+++>} FindMenu(Children[I]); // 加入这行：遍歷所有的 Menu

      <span style="color: #0000ff;"&gt;if</span> Children[I] <span style="color: #0000ff;"&gt;is</span> TMainMenu <span style="color: #0000ff;"&gt;then</span><span style="color: #000000;"&gt;
        TMainMenu(Children[I]).DialogKey(Key,Shift)
      </span><span style="color: #0000ff;"&gt;else</span> <span style="color: #0000ff;"&gt;if</span> Children[I] <span style="color: #0000ff;"&gt;is</span> TPopupMenu <span style="color: #0000ff;"&gt;then</span><span style="color: #000000;"&gt;
        TPopupMenu(Children[I]).DialogKey(Key,Shift);
      </span><span style="color: #0000ff;"&gt;if</span> Key = <span style="color: #800080;"&gt;0</span> <span style="color: #0000ff;"&gt;then</span><span style="color: #000000;"&gt;
        Exit;
    </span><span style="color: #0000ff;"&gt;end</span><span style="color: #000000;"&gt;;

..... 省略 ......

end;

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!