計時器（Timer）可以在應用程序中以重複的時間間隔産生一個事件。是非可視化組件。主要屬性如下：
|
屬性 |
說明 |
|
Enabled |
該屬性值為True時，開始工作，為False時，暫停工作 |
|
Interval |
設置定時器觸發的周期（單位：ms） |
主要事件：
|
事件 |
說明 |
|
OnTimer |
該事件以Interval屬性設置的頻率被觸發 |
示例：電子時鐘，同時将滾動條的方塊位置設置為當前時間的秒值，界面如下圖：
程序代碼如下：
procedure TForm1.RadioButton1Click(Sender: TObject);
begin
Timer1Timer(Sender);
end;
procedure TForm1.RadioButton2Click(Sender: TObject);
begin
Timer1Timer(Sender);
end;
procedure TForm1.Timer1Timer(Sender: TObject);
var
h, m, s, ms: Word;
CurrentTime: TDateTime;
begin
// 電子時鐘
CurrentTime := time;
if RadioButton1.Checked then
Label2.Caption := formatdatetime('ampmhh:nn:ss', CurrentTime)
else
Label2.Caption := formatdatetime('hh:nn:ss', CurrentTime);
DecodeTime(CurrentTime, h, m, s, ms);
ScrollBar1.Position := s;
end;
更多精彩资讯请关注tft每日頭條，我们将持续为您更新最新资讯!
zpostcode 
Recruit 
weather 
mreligion 
Yellowpages 
sport 
constellation 
shopping 
name 
game 
directory 
literature 
Word 
tour 
furnish 
Lottery 
tftnews 
lyrics 
News 
digital 
car 
dir 
Edu 
Finance 
