DateTimePicker nur Montage auswählen

[littleDave]

Ich glaube dass man nicht direkt nur Montage erlauben kann. Aber man kann das Datum nach der Auswahl noch im "OnCloseUp"-Event bearbeiten. Für Montag wäre das folgender Code:

Delphi-Quellcode:

uses
  DateUtils;

procedure TForm1.DateTimePicker1CloseUp(Sender: TObject);
begin
  if DayOfWeek(DateTimePicker1.Date) <> 2 then
     DateTimePicker1.DateTime := DateTimePicker1.Date + (2 - DayOfWeek(DateTimePicker1.Date));
end;

[Edit]Ich seh gerade, dass diese Funktion nicht gerade perfekt funktioniert , aber der Grundaufbau mit dem Event und dem DayOfWeek sollte funktionieren[/Edit]