Delphi 在线帮助说 Release 应该用于从内存中删除表单。但是，在模态形式的许多示例中，我都看到了这种结构：
MyForm := TMyForm.Create(nil);
try
MyForm.ShowModal;
finally
MyForm.Free;
end;
Free 是销毁模态表单的安全方法吗？正如我在 ShowModal 的源代码中看到的那样，Application.HandleMessage 将被调用，直到 ModalResult 不为 0。这就是 Free 不能干扰挂起的 windows 消息的原因吗？
【问题讨论】：
标签： forms delphi memory-management modal-dialog
是的，在调用ShowModal 之后使用Free 是安全的。
您需要使用Release 的情况是当您处于事件处理程序（例如OnClick）的中间时，事件之后的进一步处理将不得不访问表单。在这种情况下，调用Release 而是发布CM_RELEASE 消息，该消息在事件处理程序完成并且控制权返回到消息泵（ProcessMessages/Application.Run）之前不会释放事件。 ShowModal 直到事件处理程序完成并且控制使其备份堆栈后才会返回，因此之后调用 Free 实际上与处理 CM_RELEASE 消息的位置相同。
【讨论】：
Release，然后调用Application.ProcessMessages，WM_RELEASE 消息将被处理并释放表单。 Gerry 担心的是，如果您使用 Release 来推迟销毁，然后在实际完成之前意外释放了表单。
这取决于。 Freeing 表单不会像Release 那样调用事件处理程序，并且任何可能已发布到表单并排队的消息都不会被处理。因此，虽然在很多情况下调用Free（或FreeAndNil）可以正常工作，但由于看似随机的原因，它可能会导致一些非常奇怪的行为。
我建议的替代方法是在 OnClose 事件中将 Action 设置为 caFree，如下所示：
procedure FormClose(Sender : TObject; Action : TCloseAction)
begin
Action := caFree;
end;
然后您可以编写如下代码：
TMyForm.Create(nil).ShowModal;
而且您不需要专门释放表单，因为它会在完成后自行释放。
【讨论】：
当然，您也可以使用 FreeAndNil 例程。 FreeAndNil 例程仅在对象尚未为 nil 时才释放该对象，并在释放后将其设置为 nil。如果你直接在一个已经被释放的对象上调用 free，你会得到一个访问冲突。
MyForm := TMyForm.Create(nil);
try
MyForm.ShowModal;
finally
FreeAndNil(MyForm);
end;
【讨论】：