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

时间:2017-09-14 02:38:52

标签: 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自动创建的项目,以及带有我的HelpBook的子菜单项。令我惊讶的是,我现在没有任何编码就得到了工作帮助。

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

  1. 如何指定搜索框应位于OS创建的位置 帮助菜单项?

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

  3. 如果我坚持使用OS创建的“帮助”菜单项,我该如何添加 其他子菜单项?
  4. Apple documentation看来,当注册了HelpBook时,操作系统会提供帮助和搜索功能。但这两个函数应该在同一个菜单项上。我想知道这可能是一个Firemonkey错误,他们正在拆分。

1 个答案:

答案 0 :(得分:0)

上面的问题分为三部分。我对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,我将以下代码放在相应子菜单项的OnClick事件中(即帮助| MyApp帮助):

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

此方法导致Spotlight for Help字段自动添加到“帮助”菜单。不幸的是,Spotlight for Help不再索引我的HelpBook。使用我首次尝试的方法(使用Info.plist,如我原始帖子中所述),Spotlight for Help确实为我的HelpBook编制索引,但正如我所报告的,Spotlight字段是在我的最后一个菜单项上创建的和帮助是在操作系统自动创建的菜单项上,虽然功能是非标准的。