DateTimePicker控件无法同时修改日期和时间的问题

Delphi中的DateTimePicker控件通过对Format属性的设定可以同时显示日期与时间:

但是在编译后程序运行中却不能同时修改日期与时间，这个是由于控件中的Kind属性导致的。通过直接查看VCL的源码可以发现

TDateTimeKind = (dtkDate, dtkTime);

只定义了Date和Time，因此控件只能针对一种数据进行修改。如何才能同时修改，下面给出解决方案：

添加DateTimePicker的OnChange方法

procedure TWGSForm.dtp1Change(Sender: TObject);
var
  Text:Pchar;
  Size: Byte;
  FSetting: TFormatSettings;
begin
  FSetting.ShortDateFormat := 'yyyy-MM-dd';
  FSetting.DateSeparator := '-';
  FSetting.ShortTimeFormat := 'HH:mm:ss';
  FSetting.TimeSeparator := ':';
  Size := TDateTimePicker(Sender).GetTextLen + 1;
  GetMem(Text, Size);
  TDateTimePicker(Sender).GetTextBuf(Text, Size);
  TDateTimePicker(Sender).DateTime:=StrToDateTime(StrPas(Text),FSetting);
  FreeMem(Text, Size);
end;

原理说明：将修改后的日期时间字符串读出来，使用FormatSetting格式化时间转换成DateTime后直接给控件赋值。