Y yuzk2005 Unregistered / Unconfirmed GUEST, unregistred user! 2006-05-24 #2 var i: word; bz: boolean; begin bz:=false; for i:=0 to self.MDIChildCount-1 do if self.MDIChildren.ClassType=tform2 then begin bz:=true; break; end; if not bz then form2:=tform2.Create(self);
var i: word; bz: boolean; begin bz:=false; for i:=0 to self.MDIChildCount-1 do if self.MDIChildren.ClassType=tform2 then begin bz:=true; break; end; if not bz then form2:=tform2.Create(self);
