小编Spe*_*ker的帖子

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

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中做什么更复杂,但问题在于如何使表单的创建有点笼统.也许@运营商的事情......我真的不知道.

谢谢你的任何建议!