macos - TMainMenu - 管理帮助和搜索菜单项

标签 macos firemonkey delphi-10.2-tokyo

在 OSX 中运行我的 Firemonkey 应用程序时,搜索框会自动出现在我标记为“帮助”的最后一个菜单项上。到目前为止一切顺利,因为带有搜索框的帮助菜单是 OSX 的标准配置。

接下来,我需要添加一个帮助文件。我购买了一个令人印象深刻的实用程序 Help Crafter我用它非常快速、轻松地制作了一本 Apple HelpBook。我将 HelpBook 包放入我的主应用程序的 Resources 文件夹中。然后我在 IDE 中使用 Project|Options|Version Info 来编辑 Info.plist 文件。我向 Info.plist 添加了两个键 CFBundleHelpBookFolder 和 CFBundleHelpBookName 以指向我的 HelpBook。

运行我的应用程序,我现在发现我有两个“帮助”菜单项——一个是我编程的项目,另一个显然是由 Mac OS 自动创建的,还有一个子菜单项可以调出我的帮助手册。令我惊讶的是,我现在无需任何编码即可获得工作帮助。

接下来,我想删除我创建的帮助菜单项以消除重复。但是搜索框仍然位于我的“帮助”菜单项下,而不是在操作系统创建的“帮助”菜单项上。当我删除我的帮助菜单项时,搜索框重新定位到我现在创建的最后一个菜单项。

  1. 如何指定搜索框应位于操作系统创建的 帮助菜单项?

  2. 或者,我可以指定操作系统不应该自动 创建一个帮助菜单项(以便我可以自己创建)?在那里面 情况下,我还需要知道如何编程加载 帮助手册。

  3. 如果我坚持使用操作系统创建的帮助菜单项,我该如何添加 添加子菜单项?

出现自Apple documentation HelpBook 注册后,操作系统会提供帮助和搜索功能。但是这两个功能应该在同一个菜单项上。我想知道这是否可能是他们被拆分的 Firemonkey 错误。

最佳答案

我上面的问题分为三个部分。我对 1 和 3 不太满意,但我对 2 有部分解决方案。

要防止操作系统自动创建帮助菜单,只需删除Info.plist中的CFBundleHelpBookFolder和CFBundleHelpBookName键即可。然后在 FormCreate 中完成 HelpBook 的注册:

var
{$IFDEF MACOS}
  HelpBundle: NSBundle;
  AppBundle: NSBundle;
  Path: string;
  HelpReg: Boolean;
{$ENDIF}
begin
{$IFDEF MACOS}
  HelpMgr := TNSHelpManager.Create; // HelpMgr declared as a global variable
  AppBundle := TNSBundle.Wrap(TNSBundle.OCClass.mainBundle);
  Path := AppBundle.bundlePath.UTF8String +
    '/Contents/Resources/MyAppHelp.help';
  HelpBundle := TNSBundle.Wrap(TNSBundle.OCClass.bundleWithPath(StrToNSSTR(Path)));
  HelpReg := HelpMgr.registerBooksInBundle(HelpBundle);
  if not(HelpReg) then
    ShowMessage('Failed to register Help Book');
{$ENDIF}

为了打开 HelpBook,我将以下代码放在相应子菜单项(即帮助 | MyApp 帮助)的 OnClick 事件中:

HelpMgr.openHelpAnchor(StrToNSSTR('Page0'), 
        StrToNSSTR('com.mycompany.myapp.help'));

这种方法导致了 Spotlight for Help字段被自动添加到“帮助”菜单中。遗憾的是,Spotlight for Help 不再为我的 HelpBook 编制索引。使用我第一次尝试的方法(使用我原始帖子中描述的 Info.plist),Spotlight for Help 确实为我的 HelpBook 建立了索引,但据我报告,Spotlight 字段是在我的最后一个菜单项上创建的帮助位于操作系统自动创建的菜单项上,虽然功能不标准。

关于macos - TMainMenu - 管理帮助和搜索菜单项,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/46209639/

相关文章:

linux - Linux中简单的Delphi程序中的段错误-Windows很好

delphi - TDBGrid:OnDrawColumnCell 数据重叠

macos - 观察新的系统通知 OSX

node.js - Mac 上的 Node/Deno Postgres 客户端速度缓慢

macos - 在 OS X 中监听键盘按下

c++ - 如何在FireMonkey(FMX、FM3)中显示流畅的视频?

windows - 除了ICON_BIG之外,如何使Delphi 10.2 Tokyo荣誉ICON_SMALL(窗口标题栏图标)?

macos - Flutter 桌面嵌入

delphi - 数组的 WMI 值

android - 如何调整 ListBox 项目高度以适应 Firemonkey (android) 中的文本?