1、找到 VCL.ComCtrls.pas 单元
2、修改 TDateTimeKind 类型,增加 dtkDateTime,以便支持日期时间类型。
TDateTimeKind = (dtkDate, dtkTime, dtkDateTime);
3、找到 TDateTimePicker.CNNotify 函数,在 DT:=SystemTimeToDateTime(st); 后增加
if Kind = dtkDateTime then
SetDateTime(DT)
else
…
然后就可以了。
1、找到 VCL.ComCtrls.pas 单元
2、修改 TDateTimeKind 类型,增加 dtkDateTime,以便支持日期时间类型。
TDateTimeKind = (dtkDate, dtkTime, dtkDateTime);
3、找到 TDateTimePicker.CNNotify 函数,在 DT:=SystemTimeToDateTime(st); 后增加
if Kind = dtkDateTime then
SetDateTime(DT)
else
…
然后就可以了。