大家好,我的程式中想用另外一個按鈕來關閉程式 想請教一下大家如何實現?? 另外,如果要同時出現對話框的話(有Yes No可以選的那種) 那我應該要在OnClick的事件裡面增加什麼樣的函數呢?? 心想事成 謝謝大家 發表人 - Gemi0305 於 2004/01/23 15:07:52

試試看:

 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
     if (MessageBox(Application->Handle,"是否關閉視窗?","提示",MB_YESNO)==IDYES)
         Application->Terminate();    } 

國泰平安

若直接用Button當作關閉程式的話. 有一個更快的方法!

void __fastcall TForm1::Button1(TObject *Sender)
{
Colse();
}

----------------------- 請多多指教啦!!^^

------
-----------------------
請多多指教啦!!^^

Close() 應該只是關閉一個 Form 不是關閉整個程式

引言: Close() 應該只是關閉一個 Form 不是關閉整個程式

是這樣呀? 不過小弟試的結果,都一樣耶! 只是跟前者差別在於有"是否關閉視窗?"的對話框訊息. 至於不是跟您所說的是"關閉一個 Form",那小弟不清楚了! ----------------------- 請多多指教啦!!^^

aredfish您好 符合您的標題,小弟在此補充一下 在Form的OnCloseQuery中,利用引數CanClose可以設定"不准"用X來關閉這個Form...  

 void __fastcall TForm1::FormCloseQuery(TObject *Sender, bool &CanClose)
{
    CanClose = false;
}

此時使用者就必須利用其他途徑來關閉程式,例如您說的Button... 參考看看 程式迷人之處,在於邏輯思考,然而卻也是惱人之處~~

------
程式迷人之處,在於邏輯思考,然而卻也是惱人之處~~

引言: 可能是我打太快了,關閉視窗寫成關閉程式,正確來說應該是"關閉正在Run中的程式視窗",對吧?! 小弟試的結果,達到的效果是一樣的! 只是跟前者差別在於有"是否關閉視窗?"的對話框訊息. 發表人 - >< face="Verdana, Arial, Helvetica"> 關閉主視窗 MainForm 確實是可以達到關閉整個程式的效果 但是如果有多視窗，在其他視窗就必須以 Application->Terminate(); 來關閉整個程式 兩個指令的意義不太一樣 發表人 - dra 於 2004/01/30 09:43:09