我有几个不同类型的窗口,想通过下面的方式创建:
var
m:TForm1;
begin
m:=TForm1.Create(Self);
...
end;
...var
m:TForm2;
begin
m:=TForm2.Create(Self);
...
end; ...
我想有一个通用的方法,该方法接受传递的窗口类型,动态创建窗口实例,然后返回这个窗口实例。
var
m:TForm1;
begin
m:=TForm1.Create(Self);
...
end;
...var
m:TForm2;
begin
m:=TForm2.Create(Self);
...
end; ...
我想有一个通用的方法,该方法接受传递的窗口类型,动态创建窗口实例,然后返回这个窗口实例。
begin
Application.CreateForm(TfrmCtrMtc, frmCtrMtc);
frmCtrMtc.ShowModal;
end;
begin
Result:=TClass(ClassName).Create(Self);
end;可以吗,没有试过,胡说的。
此时的Form1的OWner为Application,这不是我所描述的!