Delphi——Timer定时器使用及简单实现代码

Timer定时器是一个非可视化组件，能够定时触发OnTimer事件，完成模拟时钟、系统延时、倒计时等工作。

1. Timer 的主要属性
   (1)Enable 属性：代表该定时器是否运行。当值为True时，打开定时器，否则关闭定时器。默认值为True。
   (2)Interval属性：代表定时器触发的间隔。其单位为毫秒。
   2.Timer的主要事件
   Timer只有一个OnTimer事件。当Timer打开时，每经过Interval属性指定的时间，Timer就会触发OnTimer事件 ，执行其中的程序

一个简单的实现：

由btn1触发以后，每隔一秒edit1中的数字加2
代码如下：

unit Unit1;

interface

uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.StdCtrls;

type
TForm1 = class(TForm)
tmr1: TTimer;
btn1: TButton;
edt1: TEdit;
procedure FormCreate(Sender: TObject);
procedure btn1Click(Sender: TObject);
procedure tmr1Timer(Sende