Peter以下のスレッドスプラッシュ画面とモーダルダイアログ

Question

私はPeter Below's PBThreadedSplashFormを使用して、アプリケーションの起動時に表示しています。これは、データモジュールの作成中（メインフォームが作成される直前）にさまざまなデータベースが開かれると更新されます。

問題は、データモジュールの作成中に行われる特定のことが存在するかどうかを確認することです。それらの項目のいずれかが見つからない場合は、項目を作成するかアプリケーションを閉じることができるようにモーダルダイアログが表示されます。 （欠落している項目は通常インデックスで、ダイアログは主にデータベースのインデックスを再作成するときに使用されるため、通常のユーザーではなく開発者を対象としています）。ただし、スプラッシュ画面の後ろにモーダルダイアログが表示されます。キャプションが変更されると、フォーカスされたウィンドウのように見えますが、スプラッシュ画面の後ろに表示されます。

スプラッシュ画面は、次のコードを使用して、メインのプロセスとは異なるスレッドからのWindows APIのCreateWindowEx（）を使用して作成されます。

procedure TPBSplashThread.CreateSplashWindow; 
const 
    TopmostStyle: Array [Boolean] of DWORD = (0, WS_EX_TOPMOST); 
    NoActivateStyle : Array [Boolean] of DWORD = (0, WS_EX_NOACTIVATE); 
var 
    wsize: TSize; 
begin 
    wsize.cx := FSurface.Width + GetSystemMetrics(SM_CXEDGE) * 2; 
    wsize.cy := FSurface.Height + GetSystemMetrics(SM_CYEDGE) * 2; 
    FWnd := CreateWindowEx(
      TopmostStyle[ FTopmost ] or WS_EX_TOOLWINDOW 
      or WS_EX_STATICEDGE or WS_EX_CLIENTEDGE 
      or NoActivateStyle[ Win32MajorVersion >= 5 ], 
      MakeIntResource(FWndClass), 
      nil, 
      WS_POPUP or WS_BORDER, 
      Forigin.x, Forigin.y, 
      wsize.cx, wsize.cy, 
      0, 0, hInstance, self); 
    If FWnd = 0 Then 
    raise exception.create('TPBSplashThread.CreateSplashWindow: CreateWindowEx failed'); 
end; 

FTopmostは決してありません（明確な意味を持つ）プロパティですクラスの構築時にデフォルトの初期化が行われるため、Falseです。 （私は明示的にそれをFalseに設定しようとしましたが効果がありません）また、モーダルダイアログのOnShowイベント中にSetForegroundWindow（）とSetWindowPos（）を使用してみました。

これを引き起こしている原因は何ですか？

Answer 1

最後に問題を解決しました。これは、CreateWindowEx（）の呼び出しでWS_EX_NOACTIVATEフラグが原因で発生したようです。それを取り除くためにそれを変更すると、問題を解決するようです。モーダルダイアログがスプラッシュ画面の上に表示されます。モーダルなので、スプラッシュ画面を上に置くことはできません。

作業コードは次のとおりです。

    FWnd := CreateWindowEx(
      TopmostStyle[ FTopmost ] or WS_EX_TOOLWINDOW 
      or WS_EX_STATICEDGE or WS_EX_CLIENTEDGE, 
      MakeIntResource(FWndClass), 
      nil, 
      WS_POPUP or WS_BORDER, 
      Forigin.x, Forigin.y, 
      wsize.cx, wsize.cy, 
      0, 0, hInstance, self); 

おかげで、ロブとクレイグ、努力のため。

Answer 2

あなたが説明を探しているなら、私はあなたを助けることができません。

ソリューションをお探しの場合は、初めてではありません。 Eddie Shipman encountered this same problem in May.彼の提案した解決策は、スプラッシュ画面で隠れているダイアログを最上位のウィンドウにすることでしたが、アプリケーションが他のウィンドウを表示する前にスプラッシュ画面を隠すことで、最終的に問題を回避しました。

もう1つの提案は、スプラッシュ画面にコマンドを投稿して、にすることです。メッセージボックスを表示するにはにしてください。このダイアログは、スプラッシュ画面の親となることがあります。しかし、VCLの贅沢品は、メインスレッドの外側では動作しないため、これ以上の余裕がないため、難しいです。

Answer 3

これを解決するには、ダイアログをスプラッシュ画面にペアレンタルする必要があります。スプラッシュ画面のHWNDをグローバル変数に割り当て、ダイアログのCreateParamsメソッドをオーバーライドします。グローバルHWNDに値がある場合、CreateParamsが渡すParams.WndParent変数にその値を代入します。異なるスレッドから来ているということは、VCLオブジェクトではなくHWNDを処理しているだけであり、Windowsは同期を処理します。