請問以下兩種建立方式， 為什麼我用方法二時會錯誤 我的Form2是放在Available Forms中（project/option form頁面 右邊） 方法一： with TForm2.Create(self) do try showModal; finally Free; end; 方法二: TForm2.create(self); Form2.ShowModal; ---------------- 初出芧房程設師， 左鍵右鼠寫程式， 日扣夜寫眼框溼， 望能早成系分師。 ----------------

------
----------------
初出芧房程設師，
左鍵右鼠寫程式，
日扣夜寫眼框溼，
望能早成系分師。
----------------

你在你的Unit2.pas中應可看到一行 var Form2:TForm2; TForm2是一個類別, form2則是一個Global變數,只占4byte. TForm2.create(self); 用TForm2之類別Create了一個物件, 並未將此物件assign給任何變數 Form2.ShowModal; Form2這個變數並未定義 1. 改成 form2:=TForm2.create(self); Form2.ShowModal; 就不會有錯誤訊息了 2. 但form2未free, 雖parent free時會一起free, 但總是不可靠 故 form2:=TForm2.create(self); Form2.ShowModal; from2.free; 3. 為確保在任何Error, Form2也能free,故 form2:=TForm2.create(self); try Form2.ShowModal; finally from2.free; end; 4. 用個with包起來, 省略變數名稱, 就變成你的方法一了 所以兩個方法是同一種, 只是一個完整, 一個不完整

請教 ccchen 如果 不希望 showmodal (因想在螢幕上可另選一個功能畫面出來) 那該如何得知form1已關掉,再free 這個 form1 呢 如 if form1=nil then form1:=tform1.create(self); form1.show; free 應放在什地方 若用 try form1.show; finally form1.free; end; form1 show 一下,就被 free 掉了 謝謝.

改成這樣就可以了!! try form1.showmodal; finally form1.free; end; 改成有showmodal就可了， 因為show只是把form給顯示出來， 所以Form一show出後，此命令就結果了， 然後就去執行Free的動做。 而Showmodal則會讓此Form顯示在所有的Form最上方， 也就是除非此表單結束，或有其他的Form在showmodal， 不然無法換到其他的Form。 因此，如果你沒有結束此Form，他都會一直停在Form1.showmodal 而當Form1被Close時，則會做Finally的動做，也就是去做Free。 ---------------- 初出芧房程設師， 左鍵右鼠寫程式， 日扣夜寫眼框溼， 望能早成系分師。 ----------------

------
----------------
初出芧房程設師，
左鍵右鼠寫程式，
日扣夜寫眼框溼，
望能早成系分師。
----------------