我需要做的是像这样的事情:
我为每个动态创建的表单都这样做了:
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过程中要做的事情更加复杂,但问题在于如何使表单的创建变得普遍化。也许可以使用@操作符……我真的不知道。
感谢任何建议!
form.Free
在这里就可以了。值得指出的是,只有在表单的构造函数是TForm
构造函数的重写时,才能起作用。 - David HeffernanTMyForm
。 - David HeffernanTest(TMySuperDuperClass)
或Test(MyOtherFantasticForm)
。 - David Heffernan