[BCB] 程式關閉提示

在主要Form的 OnClose Event 下

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

Action的值

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