Kalender: Tag nur in einem Jahr hervorheben

[shmia]

Zitat von Aike:

Mein Problem sieht folgendermaßen aus:
Ich möchte z.B. nur den 10.09.2014 markiert haben (Da werde ich 30 #grusel#), aber in allen anderen Jahren soll keine Markierung stattfinden (Man will ja nicht jedes Jahr daran erinnert werden ). Leider muss ich zum Markieren die proc "GetMonthInfo(Sender:TObject; Month:Cardinal;
var MonthBoldInfo:Cardinal)" nutzen, die mir keinen Zugriff auf das aktuelle Jahr gewährt.

Delphi-Quellcode:

procedure TForm1.GetMonthInfo(Sender:TObject; Month:Cardinal;var MonthBoldInfo:Cardinal);
var
   datum : TDateTime;
   Year, Month2, Day: Word
begin
   datum := (sender as TMonthCalendar).Date;
   DecodeDate(datum, Year, Month2, Day);
   if Year = 2014 then
   begin
      // Und jetzt wirds gruselig; ich bin/werde 30 !!