在按下視窗右上角的[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
全站熱搜
留言列表