Monatswechsel im TMonthCalendar

[himitsu]

Willst du nur wissen wann der Monat gewechselt wird
oder willst du es verhindern?


Wissen:
> aktuell eingerstellten Monat merken
> im OnChange vergleichen und neuen Monat merken

Verhindern:
> .MinDate und .MaxDate setzen

Delphi-Quellcode:

// z.B. für diesen Monat
MonthCalendar1.MinDate := EncodeDate(2010, 05, 01);
MonthCalendar1.MaxDate := EncodeDate(2010, 05, 30);

// aktueller Monat
var Y, M, D: Word;
DecodeDate(Now, Y, M, D);
MonthCalendar1.MinDate := Now - D + 1;
MonthCalendar1.MaxDate := Now - D + MonthDays[IsLeapYear(Y), M];