窗体释放问题

Question

1 frmdjsr.free;
2 frmdjsr.release;
and  在close事件中,加　Action:=caFree;

Answer 1

to ：　csdnwater(畅所欲言)　我用你的方法试了一下开始还行，但多几次就不行了；
to :lance09(SKY_CAT)　  不行，要出错 另外close事件是在哪个窗体中的？

Answer 2

建议使用Release代替free，Release是TForm的方法，而free源自TObject。free直接释放掉一个对象，而Release则等到Tform所有的结束工作都完成后才调用free释放对象。这就说明一个问题，你在frmdjsr.free之前还有子对象或资源的释放工作没有完成，或者已经销毁了窗口却又调用form.free。光看你的代码是没有错误的

Answer 3

模式窗体showmodal后要在form的onclose事件中写：
  Action  := cafree;
  frmdjsr := nil;