编程问题 ( 积分: 0 )

我是初学者遇到下面的代码有几处不太明白望赐教
procedure OpenChildForm(FormClass: TFormClass;
var Fm;
AOwner:TComponent);
var
i: integer;
Child:TForm;
begin
for i := 0 to Screen.FormCount -1 do
１－－－－－－－－
if Screen.Forms.ClassType=FormClass then
２－－－－－－－－－－－－－－－－－
begin
Child:=Screen.Forms;
if Child.WindowState=wsMinimized then
ShowWindow(Child.handle,SW_SHOWNORMAL)
else
ShowWindow(Child.handle,SW_SHOWNA);
if (not Child.Visible) then
Child.Visible:=True;
Child.BringToFront;
Child.Setfocus;
TForm(Fm):=Child;
exit;
end;
Child:=TForm(FormClass.NewInstance);
３－－－－－－－－－－－－－－
TForm(fm):=Child;
Child.Create(AOwner);
４－－－－－－－－－
end;

其中１，２，３，４处的代码不明白什么意思．还有这个函数的三个形参不太理解，特别是第二个还没有类型说明．如果有下面的实际调用可以么
OpenChildForm(TChildForm1,ChildForm1, Self);
其中ｓｅｌｆ又是什么意思？谢谢

没有分怎么给你回答?技术问题怎么发到非技术区?
既然来了,就简单说说,这段代码是遍历当前的所有childform并把他们提前显示