Hallo,
ich komme mit dem DateTimePicker (Delphi 3) nicht zurecht.
In folgendem Beispiel ist immer ein doppelter Klick
auf den OK-Button nötig und ich hab keine Idee warum das so ist.
Delphi-Quellcode:
procedure TForm2.DateTimePicker1Change(Sender: TObject);
var d1, d2 : TDateTime;
i : real;
begin
d1 := Date;
d2 := DateTimePicker1.Date;
i := d2 - d1;
if i < 2 then
begin
showmessage('Der Liefertermin muss mind. 2 Tage in der Zukunft liegen');
DateTimePicker1.Date := LieferTermin;
end
else begin
LieferTermin := DateTimePicker1.Date;
end;
end;
Wenn ich versuche der Eigenschaft MinDate einen Wert zuzuweisen, bekomme ich immer die Fehlermeldung, dass das Datum das Minimum von "30.12.1899" unterschreitet.
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
var d :TDateTime;
begin
d := Date + 2;
DateTimePicker1.Date := d; // funktioniert wie erwartet
DateTimePicker1.MinDate := d; // führt zu der Fehlermeldung
end;
Was mache ich da falsch???
Ich hoffe, Ihr könnt mir weoterhelfen.
torf160