Delphi 之 定时器 (TTimer组件)


本文整理自网络,侵删。

 
TTimer组件属性

  Enabled属性

  该属性控制TTimer组件是否周期性的产生OnTimer事件,为True,则产生周期性事件。false则不产生


示例

procedure TForm1.FormCreate(Sender: TObject);
begin
  timer1.Enabled:= False;
  Timer2.Enabled:= False;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Edit1.Text:= IntToStr(strtoint(Edit1.text)+1);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
  Timer1.Enabled:=True;
  Caption:='计时开始';
  Timer2.Enabled:= False;
end;
procedure TForm1.Timer2Timer(Sender: TObject);
begin
     Edit2.Text:= IntToStr(strtoint(Edit2.text)-1);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
  Timer2.Enabled:= True;
  Caption:='倒计时开始';
  Timer1.Enabled:=False;
end;
end.

示例:显示时间

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  label1.Caption:= DateTimeToStr(Now());

end;

来源:https://www.cnblogs.com/delphi2014/p/4026681.html

相关阅读 >>

Delphi内嵌汇编实现�载任意进程的某个dll

Delphi的整数性能测试

Delphi 加载excel 导入数据库

Delphi android应用程序的关闭退出

Delphi tstreamreader tfile assignfile读取文本文件

wmi cim_datafile的33个属性

Delphi 10.3新特性 内联变量

Delphi 小数点四舍五入问题

Delphi隐藏当前进程(新)

Delphi输入字符与tlistbox项目匹配

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...

    正在狠努力加载,请稍候...