TCalendar, aktueller und nächster Monat

[zarquon]

Hallo,

noch ne (dumme) Frage. Ne, eigentlich vier:

• Wie sage ich einem TCalendar, bzw. zweien davon das es mir den jeweils aktuellen und den nächsten Monat anzeigen soll?
• Lässt sich die Woche von Mo-So anzeigen statt von So-Sa?
• Kann man dem Ding Kalenderwochen beibringen?
• Gibt es eine Möglichkeit einen einzelnen Tag anzuklicken um mit dem Parameter Datum dann irgendwas anzustellen? So in Richtung Buchungsabfrage.

[m.fuchs]

Lässt sich die Woche von Mo-So anzeigen statt von So-Sa?

DisplaySettings -> dsStartMonday aktivieren.

Kann man dem Ding Kalenderwochen beibringen?

DisplaySettings -> dsShowWeekNumbers aktivieren.

Gibt es eine Möglichkeit einen einzelnen Tag anzuklicken um mit dem Parameter Datum dann irgendwas anzustellen? So in Richtung Buchungsabfrage.

OnDayChange oder OnClick benutzen und die Property DateTime

[m.fuchs]

Wie sage ich einem TCalendar, bzw. zweien davon das es mir den jeweils aktuellen und den nächsten Monat anzeigen soll?

Code: Alles auswählen

procedure TForm1.Calendar1MonthChanged(Sender: TObject);
begin
  Calendar2.DateTime := EncodeDate(YearOf(IncMonth(Calendar1.DateTime, 1)),
                                   MonthOf(IncMonth(Calendar1.DateTime, 1)),
                                   DayOf(Calendar2.DateTime));
end;
 
procedure TForm1.Calendar2MonthChanged(Sender: TObject);
begin
  Calendar1.DateTime := EncodeDate(YearOf(IncMonth(Calendar2.DateTime, -1)),
                                   MonthOf(IncMonth(Calendar2.DateTime, -1)),
                                   DayOf(Calendar1.DateTime));
end;

Aufpassen, dieser Code hat keinerlei Prüfungen ob das neu encodierte Datum auch tatsächlich existiert. Wenn der 31 ausgewählt ist, wird es zum Beispiel zu Problemen kommen. Auf die Schnelle kann man das lösen indem an Stelle des DayOf(Calendar2.DateTime) einfach 1 setzt (und analog in der zweiten Methode beim DayOf(Calendar1.DateTime)). Dann bleibt aber halt nicht der ausgewählte Tag erhalten. Aber eine passende Prüfung, kann der geneigte Leser natürlich auch selber formulieren.

[Socke]

Die Funktion IncAMonth(), die von IncMonth() aufgerufen wird, verändert das Datum korrekt unter Beachtung der ganzen Bedingungen (Tage im Monat, Monate im Jahr)

Code: Alles auswählen

Calendar1.DateTime := IncMonth(Calendar2.DateTime);
// bzw. vice versa

[m.fuchs]

Die Funktion IncAMonth(), die von IncMonth() aufgerufen wird, verändert das Datum korrekt unter Beachtung der ganzen Bedingungen (Tage im Monat, Monate im Jahr)

Code: Alles auswählen

Calendar1.DateTime := IncMonth(Calendar2.DateTime);

Ja, aber aufgepasst, das macht eventuell was anderes als man will. Ein Beispiel:

• Calendar1: 12.04.2012, Calendar2: 23.05.2012
• Calendar1 wird um einen Monat weitergeschaltet
• Calendar1: 12.05.2012, Calendar2: 12.06.2012

Bei meinem Vorschlag hätte der Calendar2 nach dem Weiterschalten das Datum 23.06.2012. Wenn auf diese mitwandernde Tagesmarkierung verzichtet werden kann, ist deine Methode natürlich immer vorzuziehen.

[Socke]

Bei meinem Vorschlag hätte der Calendar2 nach dem Weiterschalten das Datum 23.06.2012. Wenn auf diese mitwandernde Tagesmarkierung verzichtet werden kann, ist deine Methode natürlich immer vorzuziehen.

Nun ja ... Das rechtfertigt trotzdem nicht, eine determinierte Methode mit den selben Parametern mehrmals aufzurufen. Mir sah deine Lösung nur zu kompliziert aus um wirklich verständlich zu sein.