今天碰到了这个错误,去网上查了一下,解释五花八门,看了一下似乎都不是真正原因。无奈之下只能自己摸索了了。后来看了一下,这个问题非常简单,和数据库什么的一点关系都没有,是一个很纯粹的控件问题。
首先,在出错的时候发现操作系统发了一个消息并且调用了这个函数 TCommonCalendar.SetDate(0),在Delphi的ComCtrls单元可以找到
procedure TCommonCalendar.SetDate(Value: TDate);
begin
ReplaceTime(TDateTime(Value), FDateTime);
if Value = 0.0 then CheckEmptyDate;
try
CheckValidDate(Trunc(Value));
SetDateTime(Value);
except
SetDateTime(FDateTime);
raise;
end;
end;
begin
ReplaceTime(TDateTime(Value), FDateTime);
if Value = 0.0 then CheckEmptyDate;
try
CheckValidDate(Trunc(Value));
SetDateTime(Value);
except
SetDateTime(FDateTime);
raise;
end;
end;
错误是从CheckEmptyDate里面报出来的
问题找到了,如果你的DateTimePicker的 DateTime 设置成了0,在控件失去焦点并且没有选择任何时间时,控件会自动调用一个SetDate函数,从而触发了这个错误,解决的方法很简单,如果你没有默认时间,不要设置成0,设置成1, 反正都是1899年,从后面一天开始没有任何问题的。