procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
  Form1 := nil;
end;三少 :o)

解决方案 »

  1.   

    創建form
     if not assigned(yourform) then
       yourform := Tyourform.create(application);
       yourform.showmodal;三少 :o)
      

  2.   

    你选择project-->options ,将除主窗体外的所有form从autocreate中移出,如果需要用,那么可以
     if form=nil then form:=Tform.create(Self);
    form.showmodal;
    form.release;
    form:=Nil;
      

  3.   

    首先在Project/option中,把不想程序开始就创建的form从auto-create forms中移到Available forms中去,然后就按照ePing也就是那个三少的做法就可以了