Dears： 小弟我寫了一段程式如下： void __fastcall TForm1::FormCloseQuery(TObject *Sender, bool &CanClose) { int button; button=Application->MessageBox("確定要結束程式嗎？","結束程式",65); if(button == 1) { if(ServerSocket1->Active == true) ServerSocket1->Close(); Close(); } } 就是按下視窗畫面的x鍵後會詢問你是否要關閉程式。不過，按下確定跟取消都還是一定會關閉程式。我知道有少什麼程式碼，請問各位大大應該要加入什麼語法呢？ 小弟我是BCB的新手，若有發問一些蠢問題，敬請見諒。 對於各位的大力協助，感激不盡！ 發表人 - taishyang 於 2004/02/05 17:01:30

------
小弟我是BCB的新手，若有發問一些蠢問題，敬請見諒。
對於各位的大力協助，感激不盡！

引言: Dears： 小弟我寫了一段程式如下：

void __fastcall TForm1::FormCloseQuery(TObject *Sender, bool &CanClose)
{
   int button;
   button=Application->MessageBox("確定要結束程式嗎？","結束程式",65);
   if(button == 1)
   {
      if(ServerSocket1->Active == true) ServerSocket1->Close();
      //Close();
   }
   else
   {
      CanClose=false;
   }
}
void __fastcall TForm1::Button1Click(TObject *Sender)
{
   Close();   
}

就是按下視窗畫面的x鍵後會詢問你是否要關閉程式。不過，按下確定跟取消都還是一定會關閉程式。我知道有少什麼程式碼，請問各位大大應該要加入什麼語法呢？ 小弟我是BCB的新手，若有發問一些蠢問題，敬請見諒。 對於各位的大力協助，感激不盡！

leeli 你好: 試試看改成上面這樣行不行呢？ < src="http://delphi.ktop.com.tw/loadfile.php?TOPICID=10003806&CC=223734"> -- Enjoy Researching & Developing -- 發表人 - RaynorPao 於 2004/02/05 19:54:39

Dear大大： 感謝您的回答。現在如果我要加一個Button元件，然後當button按下的時候，會觸發FormCloseQuery這個事件的話，應該如何處理呢？ 小弟我是BCB的新手，若有發問一些蠢問題，敬請見諒。 對於各位的大力協助，感激不盡！

------
小弟我是BCB的新手，若有發問一些蠢問題，敬請見諒。
對於各位的大力協助，感激不盡！