Der Monatskalender der TDateTimePicker-Komponente kann auch die Kalenderwochen darstellen.
In der VCL-Version der Komponente ist diese Funktionalität deaktiviert. Mit Hilfe folgenden
Codes im OnDropDown-Eventhandler der Komponente wird die Anzeige der Wochennummer aktiviert:
//---------------------------------------------------------------
// OnDropDown-Eventhandler der TDateTimePicker-Komponente
//---------------------------------------------------------------
void __fastcall TForm1::DateTimePicker1DropDown(TObject *Sender)
{
// Handle des Monatskalenders besorgen:
HWND hMonthCal = DateTime_GetMonthCal(DateTimePicker1->Handle);
// Anzeige der Kalenderwochen aktivieren:
SetWindowLong(hMonthCal, GWL_STYLE, GetWindowLong(
hMonthCal, GWL_STYLE) | MCS_WEEKNUMBERS);
}
|