请问 类 可以作为一个函数的形参吗？？

Question

请您注意，我的问题是 “类“是否可以作为传递给函数的变量，而不是“类的实例”
我想写一个函数，作用是MID中创建自窗体，一个菜单事件如下
var
kk:Tform2;
k:integer;
found:boolean;
begin
found:=true;
for k:=0 to MDIChildCount-1 do
  if MDIChildren[k].name ='Form2' then
     found:=false;
if  found then
begin
kk:=TForm2.create(self);
//kk.Caption:=inttostr(MDIChildCount);
kk.show;
end
能不能把她写成一个函数,上面代码中的TForm2是函数的一个参数？？

Answer 1

可以，要用到 class of ，可以参考TApplication.CreateForm函数，看看他是怎样做的！

Answer 2

type
  TClassForm = class of TForm;procedure FormCreate(TFrm:TClassForm);
var
  Frm:TForm;
begin
  Frm:=TFrm.Create(Self);
  Frm.Show;
end;调用：FormCreate(TForm1);