Hallo.
Ja, das habe ich klar verstanden. Mein Problem ist aber: Woher soll GetMonthInfo() wissen, dass es zum ersten Mal (seit dem letzten "Scrollen" durch die Monate) aufgerufen ist? Es gibt auch kein Event, das aufgerufen wird, wenn der Benutzer durch die Monate scrollt. Ansonsten würde ich bei dem Scroll-Event eine Variable auf das aktuelle Jahr setzen und diese Variable bei jedem GetMonthInfo() für Januar um 1 erhöhen. Ich komme einfach nicht drauf, wie ich ohne ein solches Event auf das aktuelle Jahr von GetMonthInfo() kommen soll!
Delphi-Quellcode:
procedure TForm1.MonthCalendar1GetMonthInfo(Sender: TObject; Month: Cardinal;
var MonthBoldInfo: Cardinal);
var
jahr, monat, tag: word;
begin
DecodeDate(monthcalendar1.Date, jahr, monat, tag);
if Month > Monat then
begin
memo1.lines.add(inttostr(Month)+'/'+inttostr(jahr+1));
end
else
begin
memo1.lines.add(inttostr(Month)+'/'+inttostr(jahr));
end;
end;
Gruß
blackdrake