Delphi中设置定时器

在这里我写在网上学到的方法，后边写我自己的实例

相关原创链接：https://blog.youkuaiyun.com/zhouky1993/article/details/62039115
1、拖一个TTimer控件至界面上。

Enabled属性代表该定时器是否运行。

Interval属性代表定时器触发的间隔。其单位为毫秒。

如图，将这两个属性分别设为False和1000.

2、将table页切换至events（事件）。

如图选择OnTimer后面的空白处，双击。进去后写定时器到点触发后的代码。

procedure TForm1.tmr1Timer(Sender: TObject);
begin
  tmr1.Enabled := False; //定时器到点触发时先暂停定时器，否则可能造成下一次定时器又到点触发了，但下面程序没时间执行
  ZkyInt := ZkyIntInterval div 1000;
  ShowMessage(IntToStr(ZkyInt));//显示这一次触发距离上一次有多少秒
  ZkyIntInterval := ZkyIntInterval + 1000;//下一次触发时间延迟1秒
  tmr1.Interval := ZkyIntInterval;
  tmr1.Enabled := True;//开启定时器
end;

3、拖一个按钮，写代码：

procedure TForm1.btn1Click(Sender: TObject);
begin
  tmr1.Enabled := True;//点击按钮后，开始运行定时器
end;

运行程序后结果：
点击按钮后，隔1秒后，show出一个框。关闭该提示框后，过2秒，show出一个框。关闭该提示框后，过3秒。。。。以此类推。

//////////////////////////////////////////////////////////////////////////////////////
自己实例
1.创建定时器


2.定时器在窗口初始化，以及触发事件，触发事件后的逻辑