DateTimePicker OnChange wird nicht ausgelöst

[Luca Haas]

Hi Leute habe nochmal eine Frage bezüglich des DateTimePickers,

und zwar habe ich ein OnChange Ereignis, welches ausgelöst wird, wenn ich die Daten im DateTimePicker per Klick ändere.
Allerdings ändere ich die Daten auch per Button je um einen Tag nach Vorne oder nach Hinten und dabei wird das OnChange Ereignis nicht ausgelöst.

[TiGü]

Deine Frage dazu lautet also wie folgt?

[Luca Haas]

Warum wird das OnChange nicht durch die Buttons ausgelöst? Im EditFeld wird das Datum durch meine Buttons geändert, aber das OnChange wird nicht ausgelöst.

[TiGü]

Wenn du im DateTimePicker die Werte änderst, dann wird die Methode TDateTimePicker.CNNotify aufgerufen.
Hier drin wird je nach Windows-Message Datum und Uhrzeit gesetzt (TCommonCalendar.SetDate von der übergeordneten Klasse und TDateTimePicker.SetTime).
Anschließend wird TDateTimePicker.Change aufgerufen. In dieser Methode wird dein Event-Handler angesprochen, insofern du einen angefügt hast.

Wenn du bspw. DateTimePicker1.Date := Date; im Code schreibst, rufst du intern direkt SetDate auf und umgehst die Benachrichtigung durch den Event-Handler.
Du kannst dir Abhilfe schaffen, in dem du es folgendermaßen schreibst:

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
begin
  DateTimePicker1.Date := Date;
  DateTimePicker1.OnChange(nil);
end;

[Luca Haas]

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
begin
  DateTimePicker1.OnChange(nil);
end;

So klappt es, wenn ich die andere Zeile mit rein nehme bleibt der DateTimePicker durchgehend beim aktuellen Datum.

Aber danke

[TiGü]

Zitat von Luca Haas:

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
begin
  DateTimePicker1.OnChange(nil);
end;

So klappt es, wenn ich die andere Zeile mit rein nehme bleibt der DateTimePicker durchgehend beim aktuellen Datum.

Aber danke

Ja, das diente auch nur zur Anschauung, damit die Date-Eigenschaft geändert wird...
Erwarte nicht, dass wir immer in unseren Codeschnipseln haargenau für dich passende Lösungen schreiben.
Diese Transferleistung musst du schon selber erbringen.

[Redeemer]

Es ist manchmal etwas seltsam, wann bei Delphi bei Änderungen mittels Code ein gewisses Ereignis ausgelöst wird.