TDateTimePicker -> OnChange abbrechen

[HolgerCW]

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

[mkinzler]

Wie versucst du die Eingabe zu überschreiben?

[soulies]

hoi,

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

cya

[HolgerCW]

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.

[mkinzler]

Zeig mal den Code

[HolgerCW]

Hier der Code:

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;

[mkinzler]

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

[fatalerror]

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

[HolgerCW]

Mit MinDate arbeite ich nicht so gerne.

So klappt es aber auch nicht:

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 ?

[mkinzler]

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