請教ha0009版主及各位前輩    在ha0009版主的BriefCase範例中寫到這樣一段Code. if csDestroying in application.ComponentState then   Action := acFree else   Action := acHide;    小弟只記得caFree的意義好像是釋放非Auto Create Form所占的記憶體﹐那caHide是什么意義呢﹖還有if語句中的csDestroying in application.ComponentState又是何涵義呢﹖    另外﹐ModalResult的作用是什么﹐小弟在學習中似乎并未發現其作用﹒ 謝謝﹗ 努力,相信會獲得美麗! 忻晟

------
忻晟

你好： 1.TCloseAction = (caNone, caHide, caFree, caMinimize); caNone : 不作入何動作 caHide : 隱藏視窗 caFree : 釋放視窗 caMinimize : 最小化    2.ComponentState 指示目前元件的狀態，原意是要判斷 Application 是否正在關閉。    3.TModalResult = Low(Integer)..High(Integer); 上面的宣告是表示 $0000 ~ $FFFF 都屬於 TModalResult 的值域， 這個宣告的實際用途就如 MessageBox 的傳回值差不多，讓我們確定 使用者的選擇如果預設的代碼你不滿意，你要傳回自行定義的代碼亦 可，但範圍是在 $0000 ~ $FFFF 之間喔。如果還有疑問，想想  TOpenDialog 的用法吧。    PS : 當程式關閉時除了 MainForm 外其餘 Form 並不會引發 OnClose 事件，所以這行的程式碼是多餘的，哈哈 < src="http://sourceprovide.deepen.com.tw/K_Top/bp.gif">

謝謝版主﹒ 請教csDestroying又是何意義呢﹖ 努力,相信會獲得美麗! 忻晟

------
忻晟

你好： csDestroying 狀態表示元件已進入釋放階段。    

謝謝版主﹒ 那 if csDestroying in application.ComponentState then ... 這句Code的意義就是在Form2關閉時﹐如果視窗處于釋放階段則進行caFree﹐若不是﹐則進行caHide. 另請ha0009版主去資料庫程式設計討論區瞄一下﹐小弟有有關您的範例的問題請教﹐謝謝您﹗ 努力,相信會獲得美麗! 忻晟

------
忻晟

你好： 沒錯，但那是多餘的程式碼。當程式關閉要關閉時除了 MainForm 外其餘 Form 並不會引發 OnClose 事件。        

謝謝ha0009版主和ha0009嫂﹒    又幫小弟學會一些﹐感恩中... 努力,相信會獲得美麗! 忻晟

------
忻晟