在一个程序中有一系列窗体,其中一个验证用户名和密码的。是自动创建的窗体。如果正确我就close它。当我close它后,虽然表面上它没有了,但实际上它还没有被释放,但为什么我在它的.FormClose过程中写有Action:=caFree;它还没有被释放呢?应该怎么办?而且我发现在这个窗体上的退出按钮的响应过程中close却好象是把它释放了。搞不清楚了。

解决方案 »

  1.   

    新手请教一个问题?
        如何我想建一个hub仓在别人哪里,但我这里又要没有库存,别人用了一些料以后,我能根据客户的用料开发票给客户,不影响我这里。谢谢!
      

  2.   

    procedure TForm1.btn1Click(Sender: TObject);
    begin
    form2.show;
    end;procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
    begin
    Action := cafree;
    end;点两次btn1看看
      

  3.   

    form1.release;
    form1 := nil;
      

  4.   

    procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
    begin
    Action := cafree;
    Form2 := nil;
    end;
    这样Assiged(Form2)就是False了