DELPHI时间触发事件!

 1  procedure  TForm1.Timer2Timer(Sender: TObject);     2  // delphi 时间触发事件     3  var     4    S,D:TDateTime;     5    ActiveHH: string ; // 触发小时     6    ActiveMM: string ; // 触发分     7    ActiveSS:

>>阅读原文<<