如何关闭另一个表单中的一个表单？

Question

假设我有两种形式的Form1和Form2。 Form1包含两个按钮，一个按钮用于创建和显示Form2，另一个按钮用于关闭Form2。

要创建Form2，请使用：

Form2 := TForm2.Create(Self);
Form2.Show;

如何从Form2关闭Form1？

Answer 1

调用另一种形式的Close方法：

Form2.Close;

或者如果您想销毁该物体：

Form2.Free;

或者，如果您只想隐藏它：

Form2.Hide;

如果显示表单的按钮也创建了它，那么您需要确保您不泄漏表单实例。想象一下多次单击该按钮，并创建该表单的多个实例。

所以也许您想要这样的代码来创建并显示表单：

if not Assigned(Form2) then
  Form2 := TForm2.Create(Self);
Form2.Show;

并使用类似的代码关闭并销毁它：

Form2.Free;
Form2 := nil;