求定时器示例

Question

我是delphi的初学者，谁能给个定时器的示例给我，谢谢！要求：每天定时执行刷新、上传按钮（刷新、上传按钮的事件已写好）比如定时每天的下午16:30，执行程序界面中的Button1和Button2非常感谢！

Answer 1

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，如果是，则执行你的两个事件。

Answer 2

谢谢楼上的，为什么一定要设置每隔一分钟检查呢？？可否程序这样实现，到了16:30就自动执行Button1Click和Button2Click，而不需要每一分钟检查，如果每一分钟检查会不会耗资源呢？非常感谢您。

Answer 3

那可以换一种思路，当程序启动时，判断现在时间与16:30差多少时间，再转换成毫秒，修改Interval属性和将Enabled设置为True。这样就会优化一点，每次启动只检查一次了。当然在执行完tmr1的事件后，把Enabled设回False。