Delphi-Timer定时器

                                      

Timer定时器是一个非可视化组件，能够定时触发OnTimer事件，完成模拟时钟、系统延时、倒计时等工作。在System选项卡中。
1． Timer的主要属性
(1) Enabled属性：当值为True时，打开定时器，否则关闭定时器。默认值为true。
(2) Interval属性：控制OnTimer事件触发的时间间隔，单位是毫秒。将Interval设置为0，相当于关闭定时器。默认值为1000ms(1秒)。
2． Timer的主要事件
Timer只有一个OnTimer事件。当Timer打开时，每经过Interval属性指定的时间，Timer就会触发OnTimer事件，执行其中的程序。
例：倒计时
unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Spin, ExtCtrls, StdCtrls, Mask, Buttons;
type
  TForm1 = class(TForm)
    Timer1: TTimer;
    MaskEdit1: TMaskEdit;
    BitBtn1: TBitBtn;
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
  m,s:integer;
implementation
{$R *.dfm}
procedure TForm1.Timer1Timer(Sender: TObject);
begin
 s:=s-1;
 if s=-1 then
 begin
  s:=59;
  m:=m-1;
  if m=-1 then m:=59;
 end;
 MaskEdit1.Text:=inttostr(m)+':'+inttostr(s);
 MaskEdit1.SelLength:=0;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
m:=9;s:=10;//初始时间09分10秒
maskedit1.EditMask:='!00:00;1;0';//时间格式，未输入字符用0代
timer1.Interval:=1000;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
timer1.Enabled:=not timer1.Enabled;//停止倒计时
end;
end.