delphi - 打开和关闭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 设置为 >正确。现在您可以通过按键盘上的 Escape 键来“单击”取消按钮!

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