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

Question

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

谢谢 ！

Answer 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 日。