//定时器响应函数中添加日期和时间刷新代码
void _fastcall TF_Main::Timer_ 1imeTimer(TObject*Sender)
{
/*****Timer_Time定时器响应事件*****/
TDateTime *DT = new TDateTime(); //new TDateTime类型变量
*DT = Now(); //Now(是取得当前日期时间函数
unsigned short i,j,k,h;
DT->DecodeDate( &i,&j,&k); //分解日期
DT->DecodeTime(&i,&j,&K,&h); //分解时间
DateTime+=IntToStr(i)+"时"+IntToStr(j)+"分"+IntToStr(k)+"秒";
switch(DT->DayOfWeek())
{
case 1: DateTime+=”星期日";
break;
case 2 :DateTime+=”星期一";
break;
case 3 : DateTime+=”星期二";
break;
case 4 : DatTime+="星期三";
break;
case 5 : DateTime+="星期四";
break;
case 6 : D:ateTime+="星期五";
break;
case 7 : DateTime+=“星期六";
break;
}
Panel1->Caption = DateTime; //在 Panel1控件上显示