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



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



序号    组件类型         组件名称             功能

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();

}



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