delphi – 从模态窗口打开的帮助文件无响应

所以我有一个包含多种形式的大型应用程序,如果我打开主窗体中的帮助文件并打开一个模态窗口然后点击F1以触发模态窗口上的上下文相关帮助,帮助文件窗口会显示正确的信息但是在关闭模态窗口之前,无法关闭帮助文件.如果我回到应用程序直到模态窗口关闭,我甚至无法让帮助文件再次获得焦点.

从旧版本的应用程序(使用Delphi 6构建)调用与新版本(使用Delphi XE2构建)相同的文件夹中的这个完全相同的帮助文件,当从模态窗口命中F1键时显示帮助文件响应,可以像我期望的那样关闭.

帮助文件是.chm类型文件.

总结一下.

启动程序
通过F1打开帮助文件
跳转到应用程序并在应用程序中打开模态窗口
点击F1,从模态窗口启动帮助
在我跳回我的应用程序并关闭模态窗口之前,无法关闭帮助文件窗口.

有没有人知道为什么会这样？

我搜索过互联网,但没有发现任何类似的问题.

我们很难过.

干杯
TJ

– – 编辑 – –

下面是一个示例两个表单应用程序的代码,它也表现出这种行为.

program Project1;

uses
  Vcl.Forms,HTMLHelpViewer,Unit1 in 'Unit1.pas' {Form1},Unit2 in 'Unit2.pas' {Form2};

{$R *.res}

begin
  Application.Initialize;
  Application.HelpFile := 'C:helpfile.chm';
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TForm1,Form1);
  Application.Run;
end.

这是Form1代码：

unit Unit1;

interface

uses
  Winapi.Windows,Winapi.Messages,System.SysUtils,System.Variants,System.Classes,Vcl.Graphics,Vcl.Controls,Vcl.Forms,Vcl.Dialogs,Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

uses Unit2;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Form2 := TForm2.Create(Application);
  try
    Form2.ShowModal;
  finally
    Form2.Free;
  end;
end;

end.

我将两个表单上的helpcontext属性设置为我的帮助文件中的两个有效上下文.

运行应用程序 – F1以打开帮助文件
点击按钮,创建并显示Form2
F1调用帮助文件
在关闭Form2之前无法关闭帮助文件.

希望这可以帮助. – TJ