例如要在幾秒後執行某段程式，就類似這類的用法，感謝

拖一個 TTimer 物件到 Form 上頭，設定 Interval 屬性 (1000 = 1 秒) 作為執行週期，在 OnTimer 事件中進行想要處理的動作。

Dear Fanta:    For [BCB] example: Form上元件: Timer, Label code as follows(for BCB):

int count=0;
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
 Form1->Timer1->Interval = 1000;
 count  ;
 Form1->Label1->Caption = count;
}

可以改成 你想要的

Fanta 您好：    以下是簡單的使用範例： 1. 在 Form 上面設置 TTimer 與 TLabel 物件各一。 2. 在 Unit1.cpp 檔案上端適當位置處設定一個全域的 int 變數，並賦予初值為 0，如下： int Cnt = 0; 2. Timer1 的預設值應該是：Interval = 1000、Enabled = true，如果不是的話，將前述屬性設定好。 3. 在 Timer1 的 OnTimer 事件欄點擊滑鼠左鍵兩次，進入 OnTimer 事件的編輯狀態。 4. 在 OnTimer 事件中寫出下列敘述 (進需輸入以紅色標示的部份)：

void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
    Cnt  ;
    Label1->Caption = IntToStr(Cnt);
}

以上範例將會每秒 (Interval = 1000) 執行到 Timer1 的 OnTimer 事件一次，事件中將 Cnt 變數每次累加 1，然後轉成文字型態設給 Label1 的 Caption 屬性 (在本例中亦可不做轉換，而將 Cnt 值直接設給 Label1 的 Caption)，將其顯示出來。 另外建議您在回覆時，不要以修改前文的方式進行，這樣子會讓其他人看不到完整的討論過程，您可以點選頁面上的 "回應此主題" 來接著發表其它意見或是說明。 發表人 - RedSnow 於 2005/05/16 01:13:04

不知道你有沒有玩過計時器程式,當某個時間數字成立後,再來啟發事件就可以了 ,以下原是計時器程式,再增加事件啟動的條件而已:

 
//開始測試---------------------------------------------------------------
void __fastcall TFMain::Timer2Timer(TObject *Sender)
{
 if(Go1)
        {
        mSecond1 = mSecond1   1;
        if(mSecond1 == 10 )
        { Button9Click(this);   //當mSecond1=10,啟動Button9
        }
        if(mSecond1 == 30)
        { Button10Click(this);  //當mSecond1=30,啟動Button10
        }
        if(mSecond1 == 60)
        {
        mSecond1 = 0;
        Second1 = Second1   1;
        }
        if(Second1 == 60)
        {
        Second1 = 0;
        Minute1 = Minute1   1;
        }
        if(Minute1 == 60)
        {
        Minute1 = 0;
        Hour1 = Hour1   1;
        }
        StaticText10->Caption = mSecond1;
        StaticText9->Caption = Second1;
        StaticText8->Caption = Minute1;
        StaticText7->Caption = Hour1;
        }
}
//自動測試計時開始-----------------------------------------------------------
void __fastcall TFMain::Button11Click(TObject *Sender)
{
 Go1 = true;
}
//自動測試計時停止-----------------------------------------------------------
void __fastcall TFMain::Button12Click(TObject *Sender)
{
 Go1 = false;
}
//自動測試計時歸零---------------------------------------------------------------------------
void __fastcall TFMain::Button13Click(TObject *Sender)
{
 mSecond1 = Second1 = Minute1 = Hour1 = 0;
 Go1 = false;
 StaticText10->Caption = mSecond1;
 StaticText9->Caption = Second1;
 StaticText8->Caption = Minute1;
 StaticText7->Caption = Hour1;
}

寒窗苦讀十年書；只待今朝狀元時！~~ ︵ / / ︵ ( ∩ ∩ ) ○ ︶ ○ Keni Lin

------
Keni Lin