怎么把TForm1作为形参传给datamodule中的一个procedure使用？

Question

procedure中要用到TForm1.create(self);但是不知道如何传递？下面的写法是不对的：
procedure TDataModule1.CallDockForm(ChildForm:TForm);
 begin
     if not Assigned(ChildForm) then
        begin
          ChildForm := TChildForm.Create(Self);
          
        end
     else
        ChildForm.BringToFront;
 end;
编译说TChildForm未定义。

Answer 1

本来嘛
哪儿有什么TChildForm?
我刚试过，用ChildForm.ClassType.create也不行。
不过肯定有办法解决。
说说你的需求吧。

Answer 2

1、要引用TChildForm所在的单元
2、改成下面的样子试试procedure TDataModule1.CallDockForm(ChildForm:TChildForm);
 begin
     if not Assigned(ChildForm) then
        begin
          ChildForm := TChildForm.Create(Self);
          
        end
     else
        ChildForm.BringToFront;
 end;

Answer 3

解决了，请参见：http://expert.csdn.net/Expert/topic/2004/2004970.xml?temp=.3370783