大凡热恋中的网虫都曾经陷入下列的困境：约好女/男朋友晚七点半在老地方等，却在计算机面前一直爬行到深夜，等反映过来，朋友早已拂尘而去，又得几天的功夫去陪礼道歉。朋友何不按以下步骤做一简单的闹钟，让你安安心心上网，大大方方约会。你只要在上网的时候打开此应用程序，设置好约会时间（当然也可以是默认好的）即可。时间一到，音乐响起，快去约会吧。

本闹钟程序有以下组件组成：

序号 组件类型 组件名称 功能 1 Tlabel l_Clock_1 显示“输入日期” 2 TdateTimePicker dtp_Clock_1 选择日期 3 Tlabel l_Clock_2 显示“输入时间” 4 TdateTimePacker tdp_Clock_2 选择时间 5 TmediaPlayer mp_Clock 演奏音乐 6 Tbutton b_Clock_Open 重新打开 7 Ttimer t_Clock 定时检测 8 Tbutton b_Clock_Close 关闭应用程序

屏幕组件一览表

屏幕组件一览图

说明：dtp_Clock_1 的Kind属性设置为dtkDate ， dtp_Clock_2 的Kind属性设置为dtkTime，mp_Clock 的FileName属性设置为你主机上存在的任何mid、wav、avi文件。t_Clock 的Interval属性设置为10。

事件说明如下：

①、 t_Clock的OnTimer : { //按时触发演示程序 struct date d; struct time t; AnsiString thour,tmin,tsec; int dyear; int dintyear; int dmon,dday; AnsiString tinthour,tintmin,tintsec; AnsiString dintmon,dintday; //取当天日期 getdate(&d); dyear=d.da_year; dday=d.da_day; dmon=d.da_mon; dintyear=StrToInt(dint.SubString(1,2)); dintmon=dint.SubString(4,2); dintday=dint.SubString(7,2); //取当时时间 gettime(&t); thour=AnsiString(t.ti_hour); tmin=AnsiString(t.ti_min); //tsec=AnsiString(t.ti_sec); //tint=AnsiString(DateTimePicker1- >Time); tinthour=tint.SubString(10,2); tintmin=tint.SubString(13,2); //tintsec=tint.SubString(16,2); //闹钟服务功能 if ((StrToInt(thour)==StrToInt(tinthour))&& (StrToInt(tmin)==StrToInt(tintmin)) &&(StrToInt(AnsiString(dyear).SubString(3,2)) ==dintyear)&&(StrToInt(dmon)==StrToInt(dintmon)) &&(StrToInt(dday)==StrToInt(dintday))) { dTimer- >Enabled=false; MediaPlayer1- >Open(); MediaPlayer1- >Play(); } } ②、 b_Clock_Open 的OnClick： { t_Clock- >Enabled=true; } ③、 b_Clock_Close的OnClick { Application- >Terminate(); }

当然此程序还可以拓展、细化，如我仅将触发条件检测到分，当然它完全可以检测到秒，也可以仅检测到时。