Delphi 10.4 Firemonkey中TPopupMenu定位异常问题求助

问题现象 #

在Delphi 10.4的Firemonkey框架中使用TPopupMenu时，出现两个异常：

• 右键点击控件仅偶尔能弹出菜单
• 菜单弹出位置与鼠标光标相距较远

测试场景的控件配置：

• 带菜单项的TPopupMenu组件
• 关联了PopupMenu的TLayout（因Firemonkey Form无PopupMenu属性）
• 关联了同一个PopupMenu的TPanel
• 位于窗体中央的TButton

问题根源 #

1. 控件布局逻辑错误：从FMX代码可见，Button1作为Layout1的子控件，其Position.X=216但Layout1的Size.Width=177，导致Button1大部分区域超出父控件边界，Firemonkey对超出父控件的子控件交互支持存在缺陷。
2. 多控件共享PopupMenu冲突：Layout1和Panel1同时关联同一个TPopupMenu，当右键点击重叠区域时，控件的事件响应优先级混乱，导致菜单偶尔无法触发。
3. 坐标计算偏差：Firemonkey的自动PopupMenu弹出逻辑依赖控件的客户端坐标转换，当控件布局不符合容器规则时，会出现坐标转换错误，导致菜单位置偏移。

修正方案 #

方案1：调整布局与PopupMenu关联 #

• 移除Layout1对PopupMenu的关联，仅给需要右键菜单的Panel1绑定PopupMenu
• 调整Layout1的宽度，让Button1完全处于其可视范围内，或者直接将Button1移出Layout1，作为Form的直接子控件

方案2：手动控制菜单弹出（更可靠） #

放弃控件的PopupMenu属性自动关联，改为通过鼠标事件手动触发，确保坐标准确且响应稳定：

1. 给需要弹出菜单的控件（如Panel1）添加OnMouseDown事件
2. 在事件中判断右键点击，调用PopupMenu.Popup方法并传入正确的屏幕坐标：

unit MainUnitTestPopup;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs,
  FMX.Controls.Presentation, FMX.StdCtrls, FMX.Layouts, FMX.Menus;

type
  TForm2 = class(TForm)
    Layout1: TLayout;
    Button1: TButton;
    PopupMenu1: TPopupMenu;
    MenuItem1: TMenuItem;
    MenuItem2: TMenuItem;
    Panel1: TPanel;
    procedure Button1Click(Sender: TObject);
    procedure Panel1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Single);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.fmx}

procedure TForm2.Button1Click(Sender: TObject);
begin
   Application.Terminate;
end;

procedure TForm2.Panel1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Single);
begin
  if Button = TMouseButton.mbRight then
  begin
    // 将控件客户端坐标转换为屏幕坐标，确保菜单在鼠标位置弹出
    PopupMenu1.Popup(Panel1.ClientToScreen(PointF(X, Y)));
  end;
end;

end.

3. 移除FMX代码中Panel1的PopupMenu = PopupMenu1配置，避免自动逻辑和手动逻辑冲突

方案3：检查FormFactor配置 #

确保Form的FormFactor.Devices仅包含Desktop，且布局尺寸未启用PlatformDefault，避免平台缩放导致的坐标计算偏差。

内容的提问来源于stack exchange，提问作者Sergio Bonfiglio