8

Delphi XE2、Win64 を使用。

そのため、多くのフォームを持つ大規模なアプリケーションがあり、メイン フォームからヘルプ ファイルを開いてモーダル ウィンドウを開き、F1 キーを押してモーダル ウィンドウで状況依存のヘルプを起動すると、ヘルプ ファイル ウィンドウに正しい情報が表示されますが、モーダル ウィンドウを閉じるまで、ヘルプ ファイルを閉じることができません。モーダル ウィンドウが閉じるまでアプリケーションに戻ると、ヘルプ ファイルにフォーカスを戻すことさえできません。

新しいバージョン (Delphi XE2 でビルド) と同じフォルダー内にあるアプリケーションの古いバージョン (Delphi 6 でビルド) からまったく同じヘルプ ファイルを呼び出すと、モーダル ウィンドウで F1 キーを押すと、ヘルプ ファイルが表示されます。応答性が高く、期待どおりに閉じることができます。

ヘルプ ファイルは .chm タイプのファイルです。

要約する。

アプリケーションの起動 F1 でヘルプ ファイルを開く アプリケーションにジャンプし、アプリケーションでモーダル ウィンドウを開く F1 を押してモーダル ウィンドウからヘルプを起動する アプリケーションに戻ってモーダル ウィンドウを閉じるまで、ヘルプ ファイル ウィンドウを閉じることができません。

これがなぜなのか、誰にもまったくわかりませんか？

インターネットを検索しましたが、同様の問題は見つかりませんでした。

私たちは困惑しています。

乾杯 TJ

- - 編集 - -

この動作を示すサンプル 2 フォーム アプリのコードを次に示します。

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.

2 つのフォームの helpcontext プロパティを、ヘルプ ファイル内の 2 つの有効なコンテキストに設定しました。

アプリを実行 - F1 キーを押してヘルプ ファイルを開く ボタンを押して Form2 を作成し、表示する F1 キーを押してヘルプ ファイルを呼び出す Form2 を閉じるまでヘルプ ファイルを閉じることができません。

お役に立てれば。-TJ

4

1 に答える 1

9

これは、 の重大な設計上の欠陥ですHtmlHelpViewer。また、説明した動作を簡単に再現できます。問題を明確に特定するためによくできました。この問題は、32 ビット プログラムと 64 ビット プログラムの両方に等しく影響します。

個人的には使いHtmlHelpViewerにくいので使っていません。のハンドラを実装しTApplication.OnHelpます。次のようになります。

class function THelpWindowManager.ApplicationHelp(Command: Word; 
  Data: THelpEventData; var CallHelp: Boolean): Boolean;
begin
  CallHelp := False;
  Result := True;
  //argh, WinHelp commands
  case Command of
  HELP_CONTEXT,HELP_CONTEXTPOPUP:
    HtmlHelp(GetDesktopWindow, Application.HelpFile, HH_HELP_CONTEXT, Data);
  end;
end;

それをクラスに入れて、Application.OnHelp起動時に割り当てます。

Application.OnHelp := THelpWindowManager.ApplicationHelp;

単純な2フォームアプリケーションでそれをテストしたところ、うまく機能しました。実際のコードでは、これを装飾したい場合があります。たとえば、実際のコードはもっと複雑です。ヘルプ ウィンドウを閉じたときの位置とウィンドウの状態をユーザー設定に保存します。そして、再び表示されると、その位置とウィンドウの状態が復元されます。そのため、ヘルプ ウィンドウは最後に画面上のどこにあったかを覚えているように見えます。

以下のコメントで詳細を掘り下げてくれた@Sertacに感謝します。要約すると、HtmlHelpViewerコードが間違っている場所は次のとおりです。

  1. HH_INITIALIZEヘルプ システムの起動時にコマンドを送信します。
  2. ドキュメントで説明されているように、これにより、セカンダリ スレッドではなく、呼び出し元のアプリケーションと同じスレッドで実行されるように HTML ヘルプが構成されます。
  3. ShowModalその呼び出しを呼び出すとDisableTaskWindows、呼び出し元のスレッドでウィンドウが無効になります。
  4. ヘルプ ビューア ウィンドウはアプリのメイン スレッドによって作成されたため (HH_INITIALIZEコマンドにより)、無効になります。

そのため、Delphi モーダル フォームがアクティブな間は、既存のヘルプ ウィンドウを操作できません。

于 2013-02-21T22:05:06.723 に答える