DateTimePicker實現日期與時間同時修改

 

以下代码放在change事件中可以实现
var
    Buffer:   PChar;
    Size:   Byte;
begin
    Size   :=   TDateTimePicker(Sender).GetTextLen;
    inc(Size);
    GetMem(Buffer,   Size);
    TDateTimePicker(Sender).GetTextBuf(Buffer,Size);
    TDateTimePicker(Sender).DateTime   :=   StrToDateTime(StrPas(Buffer));
    FreeMem(Buffer,   Size);

end;