請問如果執行Form1後, 若在Form1中動態Create 另一個視窗Form2. 如：Form2:=TForm2.create(self);//self這邊指的是form1 此時若直接關閉form1，但Form2沒有先關閉，請問Form2的資源是否也會被一並釋放呢?Form2是否會像一般元件一樣會被OWNER在free之前先行自動FREE. 謝謝

iamjsn 你好 當設定Form2:=TForm2.create(self);//self這邊指的是form1,Form2的Owner為Form1時，原則上Form2會隨Form1的釋放而釋放沒問題， 但一般我的習慣還是保持[誰建立的物由誰負責釋放]的原則，對於程式的除錯會比較好。

當然我也是想自已從form1做FREE FORM2，不過form2視窗有一個關閉視窗的按鈕，而我在form2的FormClose也加了Action:=cafree;     

 
procedure form2.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
 
  Action:=cafree;
end;    

像上面這種情形，如果樓在form1.FormDestroy去free form2 這時form2可能有下列兩種情況 form2已經被關閉(先按form2的關閉視窗按鈕，才去關form1) form2尚未關閉(直接按form1的關閉視窗按鈕，沒先關閉form2) 因為var Form2:TForm2;是宣告在FORM2的單元 不知這時要如何判定form2是否已經被關閉了呢? 因為如果是先手動關閉form2才關form1，這時在form1.FormDestroy裏去檢查form2變數，會發現它無法存取

    procedure Tform1.FormDestroy(Sender: TObject);
begin
  //這邊不知如何判斷form2是否已經被關閉
   //本來用assigned(form2)，但判斷不出來
   //還請指點，謝謝      

    正如Chane36所說,form2的owner是form1,form在free前會先free所以隸屬於自己的物件,如果還是要自行處理    以下的做法前提是你使用form2來建立tform2    

    procedure Tform1.FormDestroy(Sender: TObject);
begin
  if form2<> nil then 
     freeanenil(form2);     
end;

自已試了一下，發現只要在下面多加一行form2:=nil;在form1用assigned判斷就不會有問題了     

 
procedure form2.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
 
  Action:=cafree;
  form2:=nil;
end;    //////////////////////////////
procedure form1.FormDestroy(Sender: TObject);
begin
   if assigned(from2) then
      from2.Free;
end;