首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > .NET > .NET >

求定时器示范

2013-11-13 
求定时器示例我是delphi的初学者,谁能给个定时器的示例给我,谢谢!要求:每天定时执行刷新、上传按钮(刷新、上

求定时器示例
我是delphi的初学者,谁能给个定时器的示例给我,谢谢!

要求:每天定时执行刷新、上传按钮(刷新、上传按钮的事件已写好)

比如定时每天的下午16:30,执行程序界面中的Button1和Button2

非常感谢!
[解决办法]
1.拉一个TTimer控件到窗体上
2.把设置触发事件的间隔为1分钟或者多少秒,这个看程序对时间的精准来定。假如一分钟,则设置TTimer的Interval属性为60000。
3.将TTimer的Enabled设置为True。

procedure TfrmMain.tmr1(Sender: TObject);
begin
  if FormatDateTime('HH:mm',Now())='16:30' then Begin
    Button1Click(sender);
    Button2Click(sender);
  End;
end;

这样每隔一分钟就会检查是不是下午16:30,如果是,则执行你的两个事件。

热点排行