Ist es sicher, für Modalformulare in Delphi Free statt Release zu verwenden?

Question

Die Delphi Online-Hilfe sagt, dass Release verwendet werden sollte, um ein Formular aus dem Speicher zu entfernen. Jedoch habe ich in vielen Beispielen für modale Formen dieses Konstrukt gesehen:

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

Ist Free eine sichere Möglichkeit, eine modale Form zu zerstören? Wie ich in der Quelle für ShowModal sehen kann, wird Application.HandleMessage aufgerufen, bis das ModalResult nicht 0 ist. Ist dies der Grund, warum Free nicht mit ausstehenden Windows-Nachrichten interferieren kann?

Answer 1

Ja, es ist sicher zu verwenden Free nach einem ShowModal Anruf.

Die Fälle, in denen Sie Release verwenden müssen, sind Zeiten, in denen Sie sich in der Mitte eines Ereignishandlers befinden (z. B. OnClick), wo die weitere Verarbeitung nach dem Ereignis auf das Formular zugreifen muss. In diesem Fall sendet der Aufruf Release stattdessen eine Nachricht CM_RELEASE, die das Ereignis nicht freigibt, bis der Ereignishandler beendet ist und die Steuerung an die Nachrichtenpumpe zurückgegeben wurde (ProcessMessages/Application.Run). ShowModal kehrt nicht zurück, bis der Event-Handler beendet ist und die Kontrolle den Stack sichern lässt. Daher ist der Aufruf von Free später derselbe Ort, an dem die Nachricht sonst verarbeitet würde.

Answer 2

Absolut, und Sie können auch die FreeAndNil-Routine verwenden. Die FreeAndNil-Routine wird das Objekt nur dann freigeben, wenn es noch nicht nil ist, und es auch nach dem free auf nil setzen. Wenn Sie direkt auf ein Objekt zugreifen, das bereits freigegeben wurde, erhalten Sie eine Zugriffsverletzung.

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

Answer 3

Kommt drauf an. Free Das Formular ruft nicht die Ereignishandler auf, die Release tut, und alle Nachrichten, die möglicherweise in das Formular gestellt und in die Warteschlange gestellt wurden, werden nicht verarbeitet. Während also in vielen und möglicherweise in den meisten Fällen der Aufruf Free (oder FreeAndNil) gut funktioniert, kann es aus scheinbar zufälligen Gründen zu einem höchst merkwürdigen Verhalten führen.

Die Alternative, die ich in der OnClose Ereignis würde vorschlagen, die Aktion zu caFree, wie diese ein:

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

können Sie dann Code wie folgt schreiben:

TMyForm.Create(nil).ShowModal; 

Und Sie don Sie müssen das Formular nicht extra freigeben, da es sich selbst befreit, wenn es fertig ist.