モーダルダイアログを非同期に開く

Question

通常、ShowModalを使用してダイアログを開くと、ダイアログが閉じられるまで現在のスレッドの実行が停止します。私はモーダルダイアログを表示したいが、ダイアログがまだ開いている間は現在のスレッドで実行を続ける。 「モーダル」と

私は単純にモーダルダイアログが閉じられるまで、ユーザーがアプリケーションの他の形態のいずれかと相互作用しないことを意味します。

デルファイShowModal機能は、私が必要とする1つに、「モーダル」のわずかに異なる定義を提供する：

モーダルフォームは、フォームが閉じられるまで、アプリケーションを実行し続けることができないものです。

現在、私はこのようなコードを持っている：私はまだ親ウィンドウと対話することができますを除いて、私は表示されない方法

（など、それを閉じて、それを周りに移動）、

dialog.Parent:=self; 
dialog.Show; 
// keep doing stuff... 

この作品をShowModalを使用せずに、ユーザーが親ウィンドウとやりとりするのを止めるフォーム？

Answer 1

Delphi \ Source \ VCL \ Forms.pasのソースコードを開き、ShowModalの実装を開きます。次に、それがどのように機能するかを学びますCodeGearのIPであるので、ここでソースコードをコピーすることはできませんが、これを自分で簡単に実行し、コードの一部を再利用することができます。

Answer 2

モーダルフォームが開いていても、メインスレッドはまだ実行されます（そうでなければ、モーダルフォームはそれ自身を再描画できませんでした）。

しかし、モーダルフォームは独自のイベントループを持ち、元のアプリケーションイベントループの実行を妨げます。

彼らは、としてそうでなければ、イベントが戻ってさらに別のモーダルフォームまたはメッセージボックスを作成し、メインイベントループにこっそり持っている可能性があります（Windowsメッセージボックスも同様に持っているだけのよう）に持っています。

そして、その種類はモーダルであることの全体のポイント否定：UIスレッドごとに1つだけのモーダルフォームまたはメッセージボックスがあることができます。

だから、あなた自身にこの質問をする必要があります。

What actions in the main event loop does this modal form prevent from happening?

はその後、別のスレッドにそれらのアクションを移動します。

--jeroen

Answer 3

がいる限り、あなたのダイアログが表示されているとして、あなたの親フォームを無効にし、これはそれを相互作用からユーザーを防ぐことができます。 DisableTaskWindowsを使用して、親フォームだけでなくすべてのフォームを無効にすることもできます。これは文書化されていませんが、 'forms.pas'のTCustomForm.ShowModalでどのように使われているのか分かります。