屏蔽掉用戶單擊右上角的關閉按鈕的方法
在本單擊的private部分中聲明如下:
procedure WMSysCommane(var Message:TMessage);message WM_SYSCOMMAND;
它的實現部分代碼為:
//如果用戶按了右上角的關閉窗體的按鈕,則認為按了'取消'按鈕
if messageWParam=SC_CLOSE then bitbtn2.onclick(self)//bitbtn2是取消按鈕的名稱
else inherited;