打开和关闭vcl窗体

Question

现在我有两种形式。在 Form1 上，我像这样打开 Form2：

procedure TForm1.Action1Execute(Sender: TObject);
var
  Form2: TForm2;
begin
  Form2 := TForm2.Create(Form2);
  Form2.ShowModal;
  Form2.Free;
end;

现在我想用按钮关闭 Form2。所以我尝试了

procedure TForm2.cancelBtnClick(Sender: TObject);
begin
  Form2.Close;
end;`

但是当我单击该按钮时这只会给我访问冲突错误。我做错了什么？

Answer 1

执行此操作的正常方法是

procedure TForm1.Action1Execute(Sender: TObject);
begin
  with TForm2.Create(nil) do
    try
      ShowModal;
    finally
      Free;
    end;
end;

，如果 TForm2 包含“确定”按钮，则应在设计时将 ModalResult 属性设置为 mrOK -时间。使用对象检查器来设置它。您可能还想将 Default 设置为 True。现在您可以通过按键盘上的 Enter 键来“单击”确定按钮！

此外，如果对话框中有“取消”按钮，则应将 ModalResult 设置为 mrCancel 并将 Cancel 设置为 True< /代码>。现在您可以通过按键盘上的 Escape 键来“单击”取消按钮！

具有 ModalResult 值的按钮将自动关闭模式对话框。

Answer 2

由于表单以模态方式显示，正确的解决方案是在按钮单击处理程序中设置 ModalResult := mrCancel 。快捷方式是将按钮的 ModalResult 属性设置为 mrCancel，然后您甚至不需要事件处理程序。

---

请注意，您的表单创建不正确。您将未分配的变量 Form2 作为 Owner 参数传递给构造函数。我预计这是访问冲突的原因。

例如，您应该传递另一个表单，Application 或 nil。事实上，在这种情况下，您也可以传递 nil，以便代码应为：

Form2 := TForm2.Create(nil);
try
  Form2.ShowModal;
finally
  Form2.Free;
end;

如果您传递所有者，则当所有者被销毁时，表单将被销毁。由于您自己销毁它，因此不需要传递所有者。

也就是说，有时设置所有者很有用，例如，如果您使用 Position 属性值之一根据所有者的位置设置表单的位置。如果是这样，那么我建议在此实例中传递 Self ，它是一个 TForm1 对象引用。

Answer 3

另外两个答案讨论了解决您问题的其他方法。

我将指出问题的原因。

您有两个名为 Form2 的变量。一个包含表单，另一个未初始化，很可能是 Nil。 A/V 的原因是您访问了 Nil 变量。

在类中使用时，您应该避免使用类的变量名称，而是可以直接引用它的成员，例如调用 Close; 而不引用变量。为了保持清晰，您还可以在其前面添加 self. 前缀，因此将 form2.close; 替换为 self.close;

Answer 4

在第二个代码中，您已经处于表单 2 中，因此您只需要执行“

procedure TForm2.cancelBtnClick(Sender: TObject);
begin
  Close;
end;

如果在第一个代码中创建了一个变量，则您没有使用作为表单中的公共变量创建的通用 Form2 变量，则它不会分配给您所调用的表格。所以会报错。如果在单元顶部，您删除了“var Form2: TForm2;”行，你会看到它抱怨该行缺少变量，将其更改为关闭，它就会消失，你的错误也会消失。

Answer 5

我不知道您是否已经解决了该问题或创建了新代码来避免该问题，但我认为正在发生的情况（并且您没有显示所有代码来确认）是您在 OnActivate main 上创建了错误的代码形成事件。

当您退出第二个窗体时，您将返回主窗体并且它再次“激活”。
可能您操纵了一个不再存在的对象。