本文整理自网络，侵删。
delphi 时间到就触发事件
var
S,D:tdatetime;
begin
Label1.Caption:=FormatDateTime(' hh:mm:ss',Now); //此时
//S:=FormatDateTime(' hh:mm:ss',Now);
s:=strtodatetime(Label1.Caption);
D:=strtodatetime('14:01:02'); //到达时间 --你自己定；www.delphitop.com
if s=d then
begin
showmessage('Y');
// 这中间你加入你自己要 执行的数据库语句
end;
end; 相关阅读 >>
Delphi android实例-trectangle加载图片(xe8+小米2)
Delphi 如何在stringgrid中嵌入控件，如按钮等等
如何在Delphi中禁用关于“返回值...可能未定义”的警告？
Delphi xe 泛型数组和splitstring处理数据
Delphi controls 属性与继承 tshape 类的小练习
Delphi winapi: getwindowtext - 获取窗口标题
更多相关阅读请进入《Delphi》频道 >>
