[轉]ShowModal() = mrOk

標籤：

if Form1.showmodal = mrok then 這句話什麼意思？

　　 首先，所有的命令按鈕(不論是Button還是BitBtn)都有一個屬性：ModalResult，該屬性可以設定為mrOk、mrCancel...等等，預設值是mrNone(ModalResult是一個整型值，只要你在用ShowModal以後，視窗中只要給它付一個非零的值，視窗會自動關閉，而mrOK的值是2)。

　　 平時，ModalResult屬性沒什麼用處，但如果命令按鈕放置到用showmodal顯示（模態顯示，一般用於顯示對話方塊）的表單上時，就大大的有用了。 

　　作用體現在： 

　　1、當設定命令按鈕的ModalResult屬性為mrOk、mrCancel...等時，程式運行後，單擊該按鈕，按鈕所在的表單會自動關閉，不用在OnClick事件中添加諸如Close；語句。 

　　2、當設定命令按鈕的ModalResult屬性為mrOk、mrCancel...等時，程式運行後，單擊該按鈕，按鈕所在的表單會自動關閉，同時將按鈕的ModalResult屬性值賦值給表單的ModalResult屬性（注意：任何表單都有這個屬性！） 

　　3、自動關閉上述表單時，表單的ModalResult屬性又會自動傳遞給showmodal方法，作為該方法的傳回值。 所以說，showmodal方法的傳回值總是與命令按鈕的ModalResult屬性相同。

 

　　 if form1.showmodal = mrok then 如果要通俗化一下，可以寫成如下等價的代碼：

 var r:TModalResult;// ...... .......  r:=form1.showmodal; if r=mrOK then// ... ... 

　　很明顯，根據showmodal方法的傳回值，可以判斷使用者在對話方塊中，究竟是點擊了OK按鈕還是Cancel按鈕，從而決定下一步的程式邏輯。

[轉]ShowModal() = mrOk