[教程]为 TDateTimePicker 增加日期时间类型支持(来自LakeView)

1、找到 VCL.ComCtrls.pas 单元

2、修改 TDateTimeKind 类型,增加 dtkDateTime,以便支持日期时间类型。

TDateTimeKind = (dtkDate, dtkTime, dtkDateTime);

3、找到 TDateTimePicker.CNNotify 函数,在  DT:=SystemTimeToDateTime(st); 后增加

if Kind = dtkDateTime then
SetDateTime(DT)
else

然后就可以了。

分享到: