DELPHI时间触发事件!

旧城等待， 2021-12-15 13:25 252阅读 0赞

1  procedure  TForm1.Timer2Timer(Sender: TObject);     
  2   // delphi 时间触发事件     
  3   var     
  4    S,D:TDateTime;     
  5    ActiveHH: string ; // 触发小时     
  6    ActiveMM: string ; // 触发分     
  7    ActiveSS: string ; // 触发秒     
  8   begin     
  9    s: = strtodatetime(FormatDateTime( ' hh:mm:ss ' ,Now)); // 时间     
 10      
 11    ActiveHH : = Edit3.Text; // 时     
 12    ActiveMM : = Edit4.Text; // 分     
 13    ActiveSS : = Edit5.Text;  // 秒     
 14      
 15      
 16    D: = strtodatetime(ActiveHH  \+ ' : '   \+  ActiveMM  \+   ' : '   \+  ActiveSS);  // 到时间      
 17      
 18     // 当日期为当天就触发     
 19     if   FormatDateTime( ' YYYY-MM-DD  ' ,DateTimePicker2.date)  =  FormatDateTime( ' YYYY-MM-DD  ' ,now)  then     
 20     begin     
 21       if  s = d  then   // 当时间一样就触发     
 22       begin     
 23        showmessage( ' 电脑爆了! ' );     
 24         //  这中间你加入你自己要 执行的数据库语句     
 25       end ;     
 26     end ;     
 27      
 28   end ;

转载于:https://www.cnblogs.com/rogee/archive/2010/09/14/1827244.html

发表评论取消回复

表情：

评论列表（有 0 条评论，252人围观）

还没有评论，来说两句吧...

相关阅读

相关 Delphi 时间操作函数

DateUtils.StartOfTheMonth(Now) //本月第一天 DateUtils.EndOfTheMonth(Now) //本月最后一天

朴灿烈づ我的快乐病毒、/ 2023年10月04日 16:24/ 0 赞/ 6 阅读

相关回车键触发事件

回车键触发事件 $scope.user_search = function (e) { var keycode = window.event ? e

╰+攻爆jí腚メ/ 2022年11月22日 05:18/ 0 赞/ 202 阅读

相关 python事件触发机制_python模拟事件触发机制详解

本文实例为大家分享了python模拟事件触发机制的具体代码，供大家参考，具体内容如下 EventManager.py \ -\- encoding: UTF-8 -\-

Love The Way You Lie/ 2022年10月31日 13:53/ 0 赞/ 194 阅读

相关回车触发事件

document.onkeydown = function() \{ var keycode = document.all ? event.keyCode : event.

超、凢脫俗/ 2022年06月13日 13:47/ 0 赞/ 253 阅读

相关回车触发事件

1、回车触发按钮点击事件 $("body").keyup(function () { if (event.which == 13){

待我称王封你为后i/ 2022年06月08日 12:08/ 0 赞/ 244 阅读

相关 jquery事件触发

1.1．事件触发 trigger()在每一个匹配的元素上触发某类事件 mouseover鼠标悬停事件 $(“\btn”).live(click,function(

Bertha 。/ 2022年06月06日 06:38/ 0 赞/ 219 阅读

相关 jquery事件触发

今天遇到一个诡异的问题，也就是动态生成的html内容元素触发click事件，用on没有生效。苦思不得其解。原来是没有写好，比如： $(w).par

ゝ一世哀愁。/ 2022年05月26日 05:50/ 0 赞/ 239 阅读

相关 jQuery_触发事件

1.`click：$('div').click()` 2.trigger:触发事件，并且触发浏览器默认行为 $('form').on('click','btnSub

秒速五厘米/ 2022年05月20日 23:45/ 0 赞/ 233 阅读

相关 DELPHI时间触发事件!

1 procedure TForm1.Timer2Timer(Sender: TObject); 2 // delphi 时间触发事件 3

旧城等待，/ 2021年12月15日 13:25/ 0 赞/ 253 阅读

相关 jQuery-触发change事件

1，修改select控件的value，会不会触发change事件？不会根据值（value）选中下拉框，不会触发change事件需要$('\pushTempType'

叁歲伎倆/ 2021年09月28日 00:58/ 0 赞/ 448 阅读