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