macos - 如何在 OSX 上的应用程序名称下创建子项目菜单?

标签 macos delphi menuitem delphi-xe2 firemonkey

如何在下面的屏幕截图中的Project1下和Quit上方添加TMenuItem?

enter image description here

我创建了一个 TMenuBar,并选中了 UseOSMenu 属性。 我添加的第一个 TMenuItem 是主栏中的第二个...

最佳答案

您可以通过将 IItemsContainer 实现类的 TMenuBar 分配给 Application.ApplicationMenuItems 属性来完成此操作。

示例:

如果表单上有一个名为 MenuBar1 的菜单栏组件,那么您只需在表单构造函数(或 OnCreate)中调用以下代码即可。

Application.ApplicationMenuItems := Menubar1;

然后您可以使用第二个 TMenuBar 组件来定义其他菜单项。

我会向您指出有关 ApplicationMenuItems 属性的 wiki 主题,但它没有其他帮助...

http://docwiki.embarcadero.com/VCL/XE2/en/FMX.Forms.TApplication.ApplicationMenuItems

关于macos - 如何在 OSX 上的应用程序名称下创建子项目菜单?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/7632838/

相关文章:

macos - 获取 iTunes/Finder 的默认专辑封面图片

delphi - 在Delphi IDE中出现错误“无法在OnShow或OnHide中更改可见性”

swift - 如何使用未知字符搜索数组 - Swift 3 for Mac

macos - Firefox NPAPI 插件在 VMware 上的 OSX 中损坏

delphi - 如何在 Canvas 上左对齐绘制文本?

delphi - FPC指针操作到Delphi调整器

wpf - 如何在 WPF 中将数据绑定(bind)到 IGrouping?

Android:更改选项菜单项的可绘制状态似乎有副作用

html - 菜单导航栏更改突出显示的颜色并在用户访问同一页面时停留

swift - 使用 iPhone 相机的 macOS App