玥．夢鄉

在按下視窗右上角的[X]時，先出現確認對話框

再視選擇執行關閉程式或不更動

在主要Form的 OnClose 下

void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
        if (Application->MessageBox("是否確定要關閉視窗", "提示視窗標題", 1) == 1)
                Action = caFree;
        else
                Action = caNone;
}

Action的值

caNone   　　什麼動作也不會做
caHide    　　僅隱藏視窗而不會關閉視窗
caFree    　　關閉視窗 並 釋放此視窗所使用到的記憶體
caMinimize 　將視窗最小化

BCB Help的example

void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)

{
  if (MessageDlg("Close application ?", mtConfirmation, TMsgDlgButtons() << mbYes << mbNo,0) == mrYes)
    Action = caFree;
  else
    Action = caMinimize;
}

上列顯示的是英文的yes跟no

跟MessageBox的差異嘛

還沒研究~cc