网络收藏

用show方法显示一个窗体，当调用close关闭这个窗体时，实际上只是在hide这个窗体，该窗体的实例一直在内存中存在。当close时，应该如何同时free该窗体呢？

推荐阅读

在formclose事件中  
  写如下语句  
      action:=cafree;  
 

procedure   tform1.formclose(sender:   tobject;   var   action:   tcloseaction);  
  begin  
      action:=cafree;  
      form1:=nil;  
  end;