Where is my way?

 

2012年1月30日

delphi 一个时钟引发的事情

摘要: 学习c# 事件之后,此前一直云里雾里.后来看到一句话:事件是基于观察者模式,有种扒开云雾见彩虹的感觉.于是趁热打铁重写了以前一个小程序 功能: 定时触发或做某些事 作用:为了方便员工们不需要每天重复统计数据之后再一条一条信息发送到决策人的手机里,于是就做了个定时统计数据并自动发送短信的功能 设计: TClock类, TClockEventArgs类 ,TWorker类 //时,分,秒事件指针 TOnSecondChangeEvent = procedure (sender:TObject;e:TClockEventArgs) of object; TOnMinuteChangeE... 阅读全文

posted @ 2012-01-30 14:51 ManLoveGirls 阅读(890) 评论(0) 推荐(0) 编辑

导航