F fossil Unregistered / Unconfirmed GUEST, unregistred user! 2000-10-21 #1 在from1中用panel做其它动态form的容器， 在生成新的动态form 时，如何检测panel中是否有其它动态form ， 若有form，又如何释放该form，
G gcq Unregistered / Unconfirmed GUEST, unregistred user! 2000-10-22 #4 procedure TForm1.Button1Click(Sender: TObject); var i:integer; begin i:=0; while i <= Panel1.ControlCount - 1 do if Panel1.Controls is TButton then Panel1.Controls.Free //释放一个控件后I不递增 else i:=i+1; //如果不是，I加1 end; 就这样！
procedure TForm1.Button1Click(Sender: TObject); var i:integer; begin i:=0; while i <= Panel1.ControlCount - 1 do if Panel1.Controls is TButton then Panel1.Controls.Free //释放一个控件后I不递增 else i:=i+1; //如果不是，I加1 end; 就这样！
张 张剑波 Unregistered / Unconfirmed GUEST, unregistred user! 2000-10-22 #5 qcp的error: Panel1.Controls is TButton 改为：Panel1.Controls is tform
G gcq Unregistered / Unconfirmed GUEST, unregistred user! 2000-10-22 #6 张剑波的error： qcp的error 改为 gcq的error 我是用BUTTON试的！所以就忘了改了，呵呵
J johnyh Unregistered / Unconfirmed GUEST, unregistred user! 2000-10-22 #8 为什么不用FRAME呢？ 难道放在PANEL中的FORM比FRAME功能强很多吗？
F fossil Unregistered / Unconfirmed GUEST, unregistred user! 2000-10-23 #9 奋斗了一晚，终于解决了 方法如下： 设全局变量一个（myTobject） 函数myCreateform(t1:TcompenentClass; t2: Tobject):boolean; t1 为FormClass; t2 为FormName; 内设判断 if myTobject <> T2 then begin (myTobject as Tform).close; CreateForm T2; T2 => myTobject; end; 自己觉得还行，请高手指正。 谢谢大家的支持！
奋斗了一晚，终于解决了 方法如下： 设全局变量一个（myTobject） 函数myCreateform(t1:TcompenentClass; t2: Tobject):boolean; t1 为FormClass; t2 为FormName; 内设判断 if myTobject <> T2 then begin (myTobject as Tform).close; CreateForm T2; T2 => myTobject; end; 自己觉得还行，请高手指正。 谢谢大家的支持！
