delphi – 打开并关闭vcl表单

发布时间：2020-12-15 09:50:27 所属栏目：大数据来源：网络整理

导读：现在我有2个表格.在Form1上,我打开Form2,如下所示： procedure TForm1.Action1Execute(Sender: TObject);var Form2: TForm2;begin Form2 := TForm2.Create(Form2); Form2.ShowModal; Form2.Free;end; 现在我想用一个按钮关闭Form2.所以我试过了 procedure TF

现在我有2个表格.在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;`

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

解决方法

正常的方法是这样做

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

并且,如果TForm2包含一个OK按钮,则应该在设计时将ModalResult属性设置为mrOK.使用对象检查器进行设置.您可能还想将Default设置为True.现在,您可以通过按键盘上的Enter键“单击”确定按钮！

此外,如果对话框中有“取消”按钮,则应将ModalResult设置为mrCancel,将“取消”设置为True.现在,您可以通过按键盘上的Escape键“点击”取消按钮！

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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!