BCB TrayIcon元件 最小化至系統列 的基本應用三法

在BCB中，要將視窗程式要將程式最小化至系統匣中是很簡單的事，BCB提供了一個基本的元件提供使用...TrayIcon，只要用這個元件，就可以達到最小化至系統匣的目的了。TrayIcon的元件在Samples的分類底下。以下三種最小化的方法，供大家參考。

@ 按下縮下鍵就縮到系統列 @
拉入一個TrayIcon的元件, 將屬性Visible設true即可

@ 按關閉鍵時 縮入系統列 @
拉入一個TrayIcon的元件
Override WndProc

//Override的WndProc...
void __fastcall TForm1::WndProc(TMessage &Message){
    if (Message.Msg == WM_CLOSE)
    {
        if (TrayIcon1->Visible == false)
        {
            TrayIcon1->Visible = true;
            TrayIcon1->Minimize();
        }
        return;
    }
    WndProc(Message);
}

//再點選TrayIcon的EVENT Restore
void __fastcall TForm1::TrayIcon1Restore(TObject *Sender)
{
TrayIcon1->Visible = false;
}

@ 啟動時 就最小化在系統匣 @
1.在設計程式時，加入一個 TrayIcon 元件於主Form中，並將該元件屬性Visible設為true
2.在主 Form 的 OnActive 事件中寫入兩行程式碼：

Application->Minimize();
ShowWindow(Application->Handle, SW_HIDE);