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后直接给控件赋值。

————————————————

原文链接：https://blog.csdn.net/yoie01/article/details/108001334