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 日になります。