如何将Firemonkey主菜单的最后一个菜单项右对齐至窗体边缘

方案1：占位菜单项法（零代码，适配静态菜单） #

• 打开主菜单编辑器，在原有最后一个菜单项的前面插入一个新的空白菜单项
• 修改这个空白菜单项的属性：
  • Text 设为空字符串
  • Enabled 设为 False 屏蔽点击交互
  • Align 设为 alClient，自动填充菜单栏剩余横向空间
• 原有最后一个菜单项会被自动推到菜单栏最右侧，天然和窗体右边缘对齐
• 如需调整右侧间距，直接修改最后一个菜单项的 Margins.Right 属性即可

方案2：动态代码调整（适合动态生成菜单的场景） #

在窗体的OnResize事件中添加以下逻辑，窗体尺寸变化时自动校准最后一项的位置：

procedure TMainForm.FormResize(Sender: TObject);
var
  MenuBar: TMenuBar;
  LastMenuItem: TMenuItem;
begin
  MenuBar := Self.MenuBar;
  // 异常判断：未绑定主菜单或无菜单项时直接退出
  if not Assigned(MenuBar) or (MenuBar.Items.Count = 0) then
    Exit;

  LastMenuItem := MenuBar.Items.Last;
  // 右侧留8像素边距，可根据需求修改数值
  LastMenuItem.Position.X := MenuBar.ClientWidth - LastMenuItem.Width - 8;
end;

建议同时在窗体的OnShow事件中也触发一次上述逻辑，避免窗体首次加载时位置显示异常

注：VCL主菜单是Windows原生控件，对齐需要调用系统API实现；而Firemonkey的菜单项是自绘控件，直接支持FMX内置的对齐、位置体系，上述方案全平台通用，不会出现跨平台兼容问题。

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