編輯框和位圖按鈕的特殊結合

山東省沾化縣人民醫院信息科(256800)---李強

Delphi編程已成為現代編程的一個熱門，很多程序員喜歡用delphi寫程序。可在delphi編程中，會遇到很多意想不到的問題，現將我在編程中遇到的一個經驗供大家參考：

新建一窗體form1，在該窗體上建立edit1,edit2兩個編輯框，bitbtn1一個位圖按鈕，edit1、edit2的text屬性為空，edit1的keyPRess程序段中寫入：If  key=#13 then  edit2.text:='edit1有效'，bitbtn1的onclick 程序段中寫入：edit2.text:='edit1無效'  ，運行程序時，在edit1編輯框中按回車，則edit2編輯框中顯示“edit1有效”；按bitbtn1按鈕，edit2編輯框中顯示“edit1無效”。

在做完以上操作時，將bitbtn1（位圖按鈕）的kind屬性卡中選擇bkok ，則bitbtn1上會有一個綠色的對號出現，這時在edit1上按回車，會出現一種特殊的情況：edit2編輯框中顯示“edit1無效”，這正是bitbtn1按鈕的所執行的命令，而edit1中的命令無效了。無論你在edit1編輯框中的keypress設定什么樣的命令或程序段，都不起作用，在回車確認時，都會自動的執行bitbtn1按鈕中的命令。有時，大家為使界面友好，會將位圖按鈕的kind屬性改變，可這樣會使同一窗體上的所有edit編輯框的keypress程序段失效，在編輯框上回車時，都會執行位圖按鈕的onclick命令！

讀者不妨試一下，以免在編程中發生類似情況時，能及時改正！