当组件kind
属性设置为dtkTime
时,有没有人知道Delphi中是否有办法为Datetimepicker组件设置最大时间和最小时间值?
答案 0 :(得分:7)
VCL类TDateTimePicker
似乎故意阻止设置时间范围值。但是,底层的通用控件支持它,至少在Windows 7中我成功尝试了以下代码:
uses
System.DateUtils,
Winapi.CommCtrl,
Vcl.ComCtrls;
procedure SetTimeRange(CommonCalendar: TCommonCalendar; MinTime, MaxTime: TTime);
var
STA: TSystemTimeRangeArray;
begin
DateTimeToSystemTime(TimeOf(MinTime), STA[0]);
DateTimeToSystemTime(TimeOf(MaxTime), STA[1]);
Win32Check(DateTime_SetRange(CommonCalendar.Handle, GDTR_MIN or GDTR_MAX, @STA));
end;
使用示例:
SetTimeRange(DateTimePicker1, EncodeTime(18, 0, 0, 0), EncodeTime(19, 0, 0, 0));