Delphi FMX TMainMenu第一个菜单项在OSX中不显示，OK在WIndows中显示

Question

我在Delphi Seattle中创建了一个多设备应用程序，并添加了一个带有MenuItem1和MenuItem2的TMainMenu（没有别的）。 构建和运行OSX，只有MenuItem2显示。 构建和运行Windows，两个菜单项都显示。 我没有区别对待这两个菜单项。 两者都只是添加而不是以任何方式定制。 还有其他人经历过吗？

Answer 1

Mac菜单栏中的顶级项目通常如下所示：

Apple/system menu ('About this Mac', 'System Preferences...', etc.)
Application menu ('About XXX', 'Services', 'Hide XXX', 'Hide Others',
  'Show All', 'Quit XXX')
File menu
Edit Menu
...

在FMX中（除了第一个版本），TMainMenu中的第一个顶级项目代表应用程序菜单。 因此，您需要在File X之前添加一个项目（或者您当前的第一个项目），它只显示在OS X上; 然后，它的子项应包括Mac应用程序菜单的常用项。 要实现这些项的行为，您可以使用标准操作（TFileHideApp，TFileHideAppOthers，TFileExit）。 或者，更详细：

• 如果还没有，请在表单中添加TActionList组件
• 双击操作列表以显示操作列表编辑器
• 单击添加按钮的下拉箭头，然后选择新标准操作...
• 选择所有TFileHideApp，TFileHideAppOthers和TFileExit，然后单击“确定”
• 返回表单，双击TMainMenu组件打开菜单编辑器
• 在第一个当前存在的项目之前添加一个项目; 在Object Inspector中，调用它（比方说）mnuApp
• 将至少四个子项添加到mnuApp; 使用Object Inspector，将第一个的Action属性分配给FileHideApp1，将第二个的Action属性分配给FileHideAppOthers，将第四个分配给FileExit1; 将第三个文本设置为连字符（ - ）以使其成为分隔符
• 关闭菜单编辑器
• 如果尚不存在，请通过双击Object Inspector中的条目为该表单创建一个OnCreate处理程序
• 如果没有在OS X上运行，则添加到FormCreate一行来隐藏mnuApp。相反，如果你已经有一个File | Exit菜单项，那么如果在OS X上运行则应该隐藏它，因为现在功能已在应用程序菜单下退出：

...

procedure TForm1.FormCreate(Sender: TObject);
begin
  mnuApp.Visible := (TOSVersion.Platform = pfMacOS);
  itmExit.Visible := (TOSVersion.Platform <> pfMacOS);
end;