如何按右上角的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 發送簡訊給我 |
發表時間：2003-03-26 17:09:15
IP:210.241.xxx.xxx 未訂閱
系統時間：2024-05-15 23:03:05
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |