如何按右上角的X關閉FORM |
答題得分者是:T.J.B
|
azi
一般會員 發表:10 回覆:39 積分:9 註冊:2002-05-27 發送簡訊給我 |
我想問一個簡單的問題,因為搜尋不到答案,所提出來問大家: 我的程式每一個FORM都有一個結束作業的BUTTON,裡面的程式只有以下三行:
WINDOWSTATE:=wsMinimized;
FORMSTYLE:=FSNORMAL;
CLOSE; 不過最近有使用者希望在按右上角的X時,就可以把FORM給關掉,雖然我還在
猶豫是不是要把右上角的X取消,不過還是要知道如何在按右上角的X時關閉
FORM。我知道onCloseQuery可以攔截到X的訊息,如果在CloseQuery下放
CLOSE;
會造成 STACK OVERFLOW 的重複迴圈。
不放CLOSE; 又無法把FORM徹底關掉... ---
Azi
------
--- Azi |
T.J.B
版主 發表:29 回覆:532 積分:497 註冊:2002-08-14 發送簡訊給我 |
在onclosequery事件不可以放close;
必須用canclose來做 舉例
if Application.MessageBox(PChar(' 要離開嗎?'),'訊息視窗',MB_OKCANCEL MB_ICONWARNING)= IDOK then CanClose := True else CanClose := false;要徹底關掉form可以在form的onclose事件寫 Action := caFree; 天行健 君子當自強不息~~@.@ 發表人 - t.j.b 於 2003/03/26 17:21:28
------
天行健 君子當自強不息~~@.@ |
Justmade
版主 發表:94 回覆:1934 積分:2030 註冊:2003-03-12 發送簡訊給我 |
|
azi
一般會員 發表:10 回覆:39 積分:9 註冊:2002-05-27 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |