Question

在Delphi中，应用程序的主帮助文件是通过TApplication.HelpFile属性分配的。然后，对应用程序帮助系统的所有调用都使用此属性（与CurrentHelpFile结合使用）来确定应将帮助调用路由到的帮助文件。

除了TApplication.HelpFile之外，每个表单还有一个TForm.HelpFile属性，可用于为源自该特定表单的帮助调用指定不同的（单独的）帮助文件。

如果某个应用程序的主帮助窗口已经打开，并且辅助呼叫从辅助帮助文件显示帮助，则两个帮助窗口都会挂起。现在都无法访问任何帮助窗口，也无法关闭。摆脱帮助窗口的唯一方法是关闭应用程序，这会导致两个帮助窗口也自动关闭。

示例：

Application.HelpFile := 'Main Help.chm'; //assign the main help file name
Application.HelpContext(0); //dispays the main help window
Form1.HelpFile := 'Secondary Help.chm'; //assign a different help file
Application.HelpContext(0); //should display a second help window

上面的最后一行代码打开辅助帮助窗口（但没有内容），然后两个帮助窗口都挂起。

我的问题是：

是否可以同时显示两个HTMLHelp窗口，如果是，那么要遵循的程序是什么？
如果没有，是否有办法判断应用程序的帮助窗口是否已打开，然后以编程方式关闭它，然后再显示不同的帮助窗口？

（我在Windows Vista上使用带有HTMLHelp文件的Delphi 2007）

更新时间：2008-09-18

同时打开两个帮助文件确实可以使用上面的代码按预期工作。问题似乎与我使用的实际帮助文件有关 - 而不是代码。

我尝试使用不同的帮助文件使用相同的代码，并且工作正常。

奇怪的是，我使用的两个帮助文件都可以正常使用 - 只有当你尝试在它们挂起的同时打开它们时才会正常工作 - 只有当你从代码中打开它们时才会这样做（在Windows资源管理器中我可以同时打开两个没有问题）。

无论如何 - 问题肯定在于帮助文件而不是代码 - 因此原始问题现在几乎无效。

更新2：2008-09-18

我最终找到了悬挂帮助窗口的原因。我将在下面发布答案，并将其作为正确的答案以供将来参考。我也改变了问题标题。

哎呀......似乎我无法接受我自己的回答......

请将其投票，使其保持在最高位置。

Answer 1

假设您有两个名为“帮助文件1.chm”和“帮助文件2.chm”的帮助文件，您将从Delphi代码中打开这些帮助文件。

要打开帮助文件1，以下代码将起作用：

procedure TForm1.Button1Click(Sender: TObject);
begin
  Application.HelpFile := 'Help File 1.chm';
  Application.HelpContext(0);
end;

要打开帮助文件2，以下代码将起作用：

procedure TForm1.Button1Click(Sender: TObject);
begin
  Application.HelpFile := 'Help File 2.chm';
  Application.HelpContext(0);
end;

但是要同时打开这两个文件，以下代码将导致两个帮助窗口挂起。

procedure TForm1.Button1Click(Sender: TObject);
begin
  Application.HelpFile := 'Help File 1.chm';
  Application.HelpContext(0);

  Application.HelpFile := 'Help File 2.chm';
  Application.HelpContext(0);
end;

<强> SOLUTION：

问题是由帮助文件名中有空格引起的。

从文件名中删除空格将解决问题。

以下代码可以正常使用：

procedure TForm1.Button1Click(Sender: TObject); begin Application.HelpFile := 'HelpFile1.chm'; Application.HelpContext(0); Application.HelpFile := 'HelpFile2.chm'; Application.HelpContext(0); end;

Answer 2

我刚测试了这个，并且按照预期的方式运行，并尝试了您尝试的代码。
在D2007 / XP中编译，在XP和Vista中运行都没有问题。

procedure TForm1.Button1Click(Sender: TObject);
begin
  Application.HelpFile:= 'depends.chm';
  Application.HelpContext(0);
  HelpFile:='GExperts.chm';
  Application.HelpContext(0);
end;

这两个帮助文件都打开了，并且还活着......

Q1：您是否检查了帮助文件的有效性？
Q2：你在哪里放置代码？

Answer 3

试过。只是工作。

Answer 4

这里没有经验丰富的帮助文件，甚至更多的Vista，但我可以为您提供可能的解决方法......

构建第二个应用程序，其唯一的工作是打开帮助文件。您可以将帮助文件名作为命令行参数传递。

您可以从主应用程序轻松检查此帮助应用程序是否正在运行。这将使您完全控制，因为您可以决定是否要

在打开辅助帮助之前发送消息以关闭帮助应用程序
允许多个帮助应用程序实例允许同时打开不同的帮助文件
在应用程序关闭后允许帮助保持打开状态，或者是否要向其发送消息以关闭它

您还可以检查帮助应用程序的实例是否已打开请求的帮助文件，并决定是否允许它再次打开，或者只是将现有实例置于前台。

如上所述，这是一种解决方法 - 如果结果是您唯一的选择，请告诉我您是否需要代码示例。否则我会保持这个帖子干净（并在短期内节省自己的时间），而不是用不必要的来源弄乱它

在Delphi中同时打开两个HTMLHelp文件会导致两个帮助窗口挂起

4 个答案: