读书人

求定时器示范

发布时间: 2013-11-13 14:04:18 作者: rapoo

求定时器示例
我是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,如果是,则执行你的两个事件。

读书人网 >.NET

热点推荐