delphi - Delphi datetimepicker组件设置最小和最大时间

有人知道当组件kind属性设置为dtkTime时，Delphi中是否可以为Datetimepicker组件设置最大时间和最小时间值？

最佳答案

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));

关于delphi - Delphi datetimepicker组件设置最小和最大时间，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/38125954/