Delphiのモーダルフォームにリリースの代わりにフリーを使用するのは安全ですか？

Question

Delphiのオンラインヘルプによれば、メモリからフォームを削除するにはリリースを使用する必要があります。しかし、モーダルフォームの多くの例では、私はこの構造を見てきました：

MyForm := TMyForm.Create(nil); 
try 
    MyForm.ShowModal; 
finally 
    MyForm.Free; 
end; 

モーダルフォームを安全に破壊する方法はありますか？ ShowModalのソースで見ることができるように、Application.HandleMessageはModalResultが0になるまで呼び出されます。これが、Freeが保留中のWindowsメッセージを妨害できない理由ですか？

Answer 1

ShowModalの呼び出し後に、Freeを使用しても安全です。

Releaseを使用する必要がある場合は、イベントハンドラ（たとえば、OnClick）の途中で、イベント後の処理がフォームにアクセスする必要がある場合があります。この場合、代わりにReleaseを呼び出すと、イベントハンドラが完了して制御がメッセージポンプ（ProcessMessages/Application.Run）に返されるまで、イベントを解放しないメッセージCM_RELEASEがポストされます。 ShowModalは、イベントハンドラが終了して制御によってスタックがバックアップされるまで返されないので、Freeを後で呼び出すと、実際にはCM_RELEASEメッセージが処理される同じ場所になります。

Answer 2

もちろん、FreeAndNilルーチンを使用することもできます。 FreeAndNilルーチンは、オブジェクトがまだnilでない場合にのみ解放し、解放後もnilに設定します。すでに解放されているオブジェクトに対して無料で直接呼び出すと、アクセス違反が発生します。

MyForm := TMyForm.Create(nil); 
try 
    MyForm.ShowModal; 
finally 
    FreeAndNil(MyForm); 
end; 

Answer 3

によって異なります。 Freeフォームでは、Releaseのイベントハンドラは呼び出されず、フォームに投稿され、キューに入れられたメッセージは処理されません。したがって、多くの場合、おそらくほとんどのケースでFree（またはFreeAndNil）が正常に動作しますが、それは一見ランダムな理由から非常に奇妙な動作につながる可能性があります。

procedure FormClose(Sender : TObject; Action : TCloseAction) 
begin 
    Action := caFree; 
end; 

あなたは、このようなコードを書くことができます：

TMyForm.Create(nil).ShowModal; 

そして、あなたドン

私がお勧めしたいの代替がOnCloseのイベントであるが、このように、caFreeにアクションを設定しますそれが完了したらそれ自身を解放するので、具体的にフォームを解放する必要はありません。