窗体释放问题(50分)

  • 主题发起人 guxinlei1108
  • 开始时间
G

guxinlei1108

Unregistered / Unconfirmed
GUEST, unregistred user!
当我在form1上创建form2时,用<br>if assigned(form2)=false then form2:=tform2.create(self);<br>当我关闭form1时,form2也同时关闭了。<br>但是当我打开FORM2的时候,就出现错误了。。<br>原因是关闭form1时,form2已经释放了。但是form2&lt;&gt;nil。<br>这个问题该怎么解决
 
你可以在form2的onClose 写上如下代码就可以了! form2 := nil;
 
1、form2 := TForm2.create(Application); 关闭Form1就不会释放Form2了。<br>2、form2 := TForm2.create(nil); form1.Onclose中FreeAndNil(Form2);
 
不要把FORM1设置成MAINFORM,<br>if assigned(form2) then form2:=Tform2.create(application).show;或<br>form2:=Tform2.create(application).showmodel;
 
小弟分不多。各位大哥分着点。。哈。。
 
顶部