我在一個單元程式，已將該程式完成， 該程式在執行完我所寫的判斷後，即會關閉視窗    而我在整合時，將該程式加入後， 竟然在執行完判斷，並不會關閉視窗， 我用showmessage來測，表示確實會執行到form.close 但我只要把close的程式加上，它還是不會關閉，    雖然講得很模糊，但還是希望大家幫忙， 可能的原因是什麼呢？    

您那段程式碼為何？    -- Believe the unbelievable.

你要關閉的那個form 是AutoCreateForm 還是 AvailableForm 如果是 AvailableForm 也就是由別的form或主form呼叫起來的話 那你還要在form 的 onClose事件寫 Action := cafree; 天行健 君子當自強不息~~@.@

------
天行健
君子當自強不息~~@.@

引言: 您那段程式碼為何？ -- Believe the unbelievable.

我的程式碼很長， 有問題的該只有form.close吧 我是利用一個主畫面上有的treeview 當點選treeview上某功能選項時， 就會show出那個功能的form 即 form.showmodal; 然後在操作該功能時，當使用者按下確定後 就會將資料存入資料庫，並執行我所寫的判斷… 判斷完後就form.close; 我所寫的判斷他都有去執行， 我把form.close先改成showmessage，他也會show出來， 不過一改回form.close，他並不會關閉我的form… 是不是不能用close來關閉呢

引言: 你要關閉的那個form 是AutoCreateForm 還是 AvailableForm 如果是 AvailableForm 也就是由別的form或主form呼叫起來的話 那你還要在form 的 onClose事件寫 Action := cafree; 天行健 君子當自強不息~~@.@

我那個form是點選主畫面上的treeview 然後用form.showmodal來顯示那個form 你的意思是在onclose事件中加上action:=cafree嗎？ 那原程式那還是用form.close嗎？

ShowModal? Have you set ModalResult? (e.g. ModalResult := mrOK)

引言:

引言: 你要關閉的那個form 是AutoCreateForm 還是 AvailableForm 如果是 AvailableForm 也就是由別的form或主form呼叫起來的話 那你還要在form 的 onClose事件寫 Action := cafree; 天行健 君子當自強不息~~@.@

我那個form是點選主畫面上的treeview 然後用form.showmodal來顯示那個form 你的意思是在onclose事件中加上action:=cafree嗎？ 那原程式那還是用form.close嗎？ < face="Verdana, Arial, Helvetica"> 沒錯 原程式還是用form.close 然後在form的onclose事件中加上action:=cafree 天行健 君子當自強不息~~@.@

[/quote] 沒錯 原程式還是用form.close    然後在form的onclose事件中加上action:=cafree    天行健 君子當自強不息~~@.@ [/quote]    丫…不行哎…我試過了…真是奇怪了

引言:

引言: 您那段程式碼為何？ -- Believe the unbelievable.

我的程式碼很長， 有問題的該只有form.close吧 我是利用一個主畫面上有的treeview 當點選treeview上某功能選項時， 就會show出那個功能的form 即 form.showmodal; 然後在操作該功能時，當使用者按下確定後 就會將資料存入資料庫，並執行我所寫的判斷… 判斷完後就form.close; 我所寫的判斷他都有去執行， 我把form.close先改成showmessage，他也會show出來， 不過一改回form.close，他並不會關閉我的form… 是不是不能用close來關閉呢 < face="Verdana, Arial, Helvetica"> 我知道你的問題了 根據紅色部分的敘述 你在最後不可以用 form.close; 而是要用 form.free; 天行健 君子當自強不息~~@.@

        我知道你的問題了 根據紅色部分的敘述 你在最後不可以用 form.close;    而是要用 form.free;    天行健 君子當自強不息~~@.@ [/quote]    哇…太神奇了… 可以了哎， 可以告訴我為什麼嗎？ 為什麼在單獨的程式中，close是可以的， 而整合進來，卻不能再用close呢

哇…太神奇了… 可以了哎， 可以告訴我為什麼嗎？ 為什麼在單獨的程式中，close是可以的， 而整合進來，卻不能再用close呢 [/ > 突然發現， 雖然畫面是關掉了， 但是 >

引言: 哇…太神奇了… 可以了哎， 可以告訴我為什麼嗎？ 為什麼在單獨的程式中，close是可以的， 而整合進來，卻不能再用close呢 < face="Verdana, Arial, Helvetica"> 等等~~~ 突然發現， 雖然畫面是關掉了， 但是 > [/> >

補充一下 當我們的project 在設計過程中  不只一個form的時候 除了mainform是autocreateform 其餘的 都最好是availableform 當mainform有呼叫的時候 再把它create出來 用完再free掉 怎麼create 就像我寫的 重點: SHOWFORM := TSHOWFORM.CREATE(SELF); SHOWFORM.SHOWMODAL; 保持只有mainform一個autocreateform 這樣對記憶體來說更省 怎麼設定為autocreateform或availableform 在delphi的IDE介面上面的Toolbar project-->options 就看到了 除了mainform在左邊的框框外 其他的form都要在右邊 然後自己在去做create的動作 明白了嗎 < >< > 天行健 君子當自強不息~~@.@

------
天行健
君子當自強不息~~@.@

引言: 補充一下 當我們的project 在設計過程中 不只一個form的時候 除了mainform是autocreateform 其餘的 都最好是availableform 當mainform有呼叫的時候 再把它create出來 用完再free掉 怎麼create 就像我寫的 重點: SHOWFORM := TSHOWFORM.CREATE(SELF); SHOWFORM.SHOWMODAL; 保持只有mainform一個autocreateform 這樣對記憶體來說更省 怎麼設定為autocreateform或availableform 在delphi的IDE介面上面的Toolbar project-->options 就看到了 除了mainform在左邊的框框外 其他的form都要在右邊 然後自己在去做create的動作 明白了嗎 < >< > 天行健 君子當自強不息~~@.@

我有乖乖照你的話做了… 不過…在我點完treeview後，他要show出form時， 是show出錯誤訊息說， 好像是記憶体的問題哎… 怎麼辦呢 另外，我在那個form也有離開的button， 按下離開，他就能順利離開， 那個button也是寫form.close丫… =========================== 好複雜！好複雜， delphi的世界好複雜