forms – 在Delphi XE中将类作为过程的参数传递

发布时间：2020-12-15 04:10:23 所属栏目：大数据来源：网络整理

导读：我需要做的是这样的事情： procedure A(type_of_form);var form: TForm;begin form := type_of_form.Create(application); form.showmodal; freeandnil(form);end; 我为每个动态创建的表单执行了此操作： form1 := TForm1.Create(application);form1.showmod

我需要做的是这样的事情：

procedure A(type_of_form);
var form: TForm;
begin
  form := type_of_form.Create(application);
  form.showmodal;
  freeandnil(form);
end;

我为每个动态创建的表单执行了此操作：

form1 := TForm1.Create(application);
form1.showmodal;
freeandnil(form1);

我将在程序A中做什么更复杂,但问题在于如何使表单的创建有点笼统.也许@操作符的事情……我真的不知道.

谢谢你的任何建议！

解决方法

procedure Test(AMyFormClass: TFormClass);
var
 form: TForm;
begin
  form := AMyFormClass.Create(Application); // you can use nil if you Free it in here
  try
    form.ShowModal;
  finally
    form.Release; // generally better than Free for a Form
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Test(TForm2);
end;

（编辑：李大同）

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