Hallo zusammen,

ich prüfe im onChange-Ereignis eines TDateTimePickers ab ob das Datum korrekt ist.

Wenn dies nicht der Fall ist, möchte ich die Eingabe des Users mit einem anderem Datum überschreiben.

Dies klappt aber leider nicht. Wie kann ich denn die Eingabe des Users abbrechen ?

Gruss

Holger

Wie versucst du die Eingabe zu überschreiben?

hoi,

überschreib im Onchange einfach DateTimePicker1.Date mit deinem Wert
bei einem Fehler.

cya

Das habe ich ja gemacht, aber der Wert den ich im Programm setze wird nicht übernommen, sondern die Einagbe des Users.

Verstehe das auch nicht.

Zeig mal den Code

Hier der Code:

markieren

Delphi-Quellcode:

procedure TForm1.DTP_Datum_FreigabeChange(Sender: TObject);
begin

 If DTP_Datum_Freigabe.Date < DTP_Datum_1.Date then DTP_Datum_Freigabe.Date := DTP_Datum_1.Date;

end;

Versuch es mal mit Trunc( <Date>), denn wegen eines Fehlers ist diese Eigenschaft ein TDateTime und kein TDate

Alternative:
Setze MinDate
DTP_Datum_Freigabe.MinDate:= DTP_Datum_1.Date

Mit MinDate arbeite ich nicht so gerne.

So klappt es aber auch nicht:

markieren

Delphi-Quellcode:

procedure TForm1.DTP_Datum_FreigabeChange(Sender: TObject);
begin

If DTP_Datum_Freigabe.Date < DTP_Datum_1.Date then DTP_Datum_Freigabe.Date := Trunc(DTP_Datum_1.Date);

end;

Weitere Ideen ?

Ich meinte eigentlich beim Vergleich, sollte aber nichts am Problem ändern.
was hast du gegen Mindate?