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

Question

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

谢谢!

Answer 1

使用MonthCal_GetMonthRange :

Retrieves date information (using SYSTEMTIME structures) that represents the high and low limits of a month calendar control's display.

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