增强DELPHI日期控件DATETIMEPICKER的功能，分享心得，希望对大家有用(0分)

DATATIMEPICKER控件，以下简称DTP，一直不是很好用，经过多日研究，现在提升了dtp的功能，具体功能和实现方法描述如下：
功能实现如下：
1、可以实现日期和时间的“年度”输入完以后自动跳转到“月份”，依次类推
2、可以实现日期和时间同时正确输入
准备工作及说明：
1、放置DTP控件，并把DTP的name设置为dtp1，kind属性设置为dtKTime
2、设置dtp的format属性位：yyyy-MM-dd HH:mm:ss 目的是实现日期和时间的输入，如果仅仅是输入日期或者时间，可以自行修改
3、在程序模块设置几个公共变量，放入程序头部public环节：
public
olddt,newdt:tdatetime;
dtk:word;
4、程序主要有3个部分，Formcreat模块初始公共变量，dtp控件onkeydown事件，dtp控件的onchange事件

主要程序如下：
procedure TForm1.FormCreate(Sender: TObject);
begin
olddt:=dtp1.DateTime;
dtk:=999;
end;

procedure TForm1.dtp1KeyDown(Sender: TObject;
var Key: Word;

Shift: TShiftState);
begin
dtk:=key;
end;

procedure TForm1.dtp1Change(Sender: TObject);
var
Buffer: PChar;
startloc,endloc,Size: Byte;
month1,day1,year1:word;
month2,day2,year2:word;
HOUR1,min1,sec1,msec1:word;
HOUR2,min2,sec2,msec2:word;
begin
Size := dtp1.GetTextLen;
Inc(Size);
GetMem(Buffer, Size);
dtp1.GetTextBuf(Buffer,Size);
DTP1.DateTime :=STRTODATETIME(StrPas(Buffer));
FreeMem(Buffer, Size);
newdt:=dtp1.DateTime;
if (dtk<>38)and (dtk<>40) then
begin
IF DTK<>999 then
begin
Decodedate(olddt,year1,month1,day1);
Decodedate(newdt,year2,month2,day2);
if year1<>year2 then
Sendmessage(dtp1.handle,WM_KeyDown,VK_right,0);
if month1<>month2 then
Sendmessage(dtp1.handle,WM_KeyDown,VK_right,0);
if day1<>day2 then
Sendmessage(dtp1.handle,WM_KeyDown,VK_right,0);
Decodetime(olddt,hour1,min1,sec1,msec1);
Decodetime(newdt,hour2,min2,sec2,msec2);
if hour1<>hour2 then
Sendmessage(dtp1.handle,WM_KeyDown,VK_right,0);
if min1<>min2 then
Sendmessage(dtp1.handle,WM_KeyDown,VK_right,0);
if sec1<>sec2 then
Sendmessage(dtp1.handle,WM_KeyDown,VK_right,0);
if msec1<>msec2 then
Sendmessage(dtp1.handle,WM_KeyDown,VK_right,0);
end;
end;
DTK:=999;
olddt:=newdt;
end;

欢迎大家多提宝贵意见

为何不封装成新的控件呢?