Timer 一問？

發文回覆瀏覽次數：716

推到 Plurk!

推到 Facebook!

答題得分者是：taishyang

ohsula
一般會員

發表：12
回覆：17
積分：5
註冊：2004-03-02

發送簡訊給我

#1 引用回覆回覆

發表時間：2004-03-07 20:40:52

IP:61.229.xxx.xxx 未訂閱

請問在一個button上，如何控制多個OnTimer事件。例如：我在string grid上想隔不同時間，在cell上出現設定的文字？我是設定多個Timer去分別控制，不知可有其它的方法？ Auston Huang 發表人 - taishyang 於 2004/03/07 20:57:36

------
Auston Huang

taishyang
站務副站長

發表：377
回覆：5490
積分：4563
註冊：2002-10-08

發送簡訊給我

#2 引用回覆回覆

發表時間：2004-03-07 21:18:56

IP:140.135.xxx.xxx 未訂閱

ohsula您好: 您說的是像下面這樣嗎,

//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
  Timer1->Enabled=false;
  Timer1->Interval=100;    //0.1秒
  Timer2->Enabled=false;
  Timer2->Interval=500;    //0.5秒
  Timer3->Enabled=false;
  Timer3->Interval=1000;   //1秒
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  Timer1->Enabled=true;   //開始
  Timer2->Enabled=true;
  Timer3->Enabled=true;
}
//---------------------------------------------------------------------------    void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
  static int i=0;
  i  ;
  if (i>10)
   i=0;
  StringGrid1->Cells[1][1]=i;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer2Timer(TObject *Sender)
{
  static int i=0;
  i  ;
  if (i>10)
   i=0;
  StringGrid1->Cells[1][2]=i;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer3Timer(TObject *Sender)
{
  static int i=0;
  i  ;
  if (i>10)
   i=0;
  StringGrid1->Cells[1][3]=i;        
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
  Timer1->Enabled=false;   //停止
  Timer2->Enabled=false;
  Timer3->Enabled=false;
}
//---------------------------------------------------------------------------

若要所要控制的Timer相當多的話,請利用站上搜尋功能查詢

[FindComponent]

可以達到此目的順心 <>～我也是在學習的階段,回答的不好請您多多見諒與指教～發表人 -

ohsula
一般會員

發表：12
回覆：17
積分：5
註冊：2004-03-02

發送簡訊給我

#3 引用回覆回覆

發表時間：2004-03-07 22:38:28

IP:61.229.xxx.xxx 未訂閱

了解，謝謝版主囉！

------
Auston Huang

系統時間：2024-05-18 23:39:24

聯絡我們 | Delphi K.Top討論版

本站聲明

1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！