2个窗体互相调用的问题(50分)

一个工程中的2个窗体 from1和form2 上个有一个button按钮, 点button按牛调用另一窗体,同时完全关点本窗体,都不是主穿体,我是这么写的<br>tfrom1.button1click(Sender: TObject);<br>var <br>&nbsp; child;tform2;<br>begin<br>&nbsp; child:=Tform2.create(self);<br>&nbsp; child.showmodal;<br>&nbsp; child.free;<br>&nbsp; close;<br>end;<br>from2上的button红的代码同上,是调用fomr1窗体的<br>form1和form2窗体的close事件中 action:=cafree;<br>穿体互相调用可以实现,循环调用各25次的时候,报错了,原因是窗体好象没有完全关闭,而且头几次调用速度非常快,往后越来越慢,这说明窗体没关掉,占用着内存,我手动关掉窗体的时候,和平时单关窗体不一样,我调用了35次,手动关的时候就应该是闪动30多次,如何解决,帮帮忙,谢谢,我不想调用hide来隐藏窗体

各位大虾,帮帮忙啊,谢谢

试试child.CloseModal;

谢谢楼上的指点，我不想那么做了,目前这个活还着急,这2个窗体实现的功能是一样的,但是有细微的差别,访问的表也基本相同,我现在打算这么去实现,在form1上调用form2窗体,但是不关闭form1穿体,,在form2上完成操作后,退出form2窗体返回fomr1窗体,这个方法笨了点,但绝对不会出先问题,呵呵,等有时间了在好好调试上面的方法

如果是上面的代码的话,可以不要close 事件里面的 action := cafree ; 可能可以解决(因为不是自己释放自己,而是调用方释放).

1.close<br>2.show