在 TMonthCalendar 中获取第一个和最后一个可见日期

【问题标题】：Get First & Last visible date in TMonthCalendar在 TMonthCalendar 中获取第一个和最后一个可见日期
【发布时间】：2012-07-14 15:01:52
【问题描述】：

有没有办法找出第一个和最后一个可见的 TMonthCalendar 中的日期？

谢谢！

【问题讨论】：

标签： delphi

【解决方案1】：

使用MonthCal_GetMonthRange:

检索表示月历控件显示上限和下限的日期信息（使用 SYSTEMTIME 结构）。

var
  times: array[0..1] of TSystemTime;
......
MonthCal_GetMonthRange(MonthCalendar1.Handle, GMR_DAYSTATE, @times[0]);

调用后，times[0] 是系统时间记录，包含日历上显示的第一个日期，times[1] 描述最后显示的日期。

对于屏幕截图中的日历，这将返回 6 月 25 日和 10 月 7 日。如果您通过0 而不是GMR_DAYSTATE，那么您将获得 7 月 1 日和 9 月 30 日。

【讨论】：