Datum UND Uhrzeit in DateTimePicker anzeigen UND ändern

[punki]

Hi zusammen,

ich habe folgendes Problem mit DateTimePicker:
Wenn ich mein DateTimePicker-Control so formatiere, dass es Datum und Uhrzeit anzeigt, (siehe sFormat im Delphi-Code) liefert die OnChange-Routine "DateTimePicker1Change" nur das geänderte Datum oder die geänderte Uhrzeit zurück, je nachdem ob die property kind mit dtkTime oder dtkDate belegt ist, jedoch nicht beide geänderte Werte.

DateTimePicker erlaubt Datum und Uhrzeit im Control gleichzeitig zu ändern.
Wie schaffe ich es beide geänderte Werte auszulesen?

Delphi-Quellcode:

procedure TForm1.DateTimePicker1Change(Sender: TObject);
var
  sD,sT,sFormat: string;
begin
  DateTimePicker1.kind := dtkTime; //dtkDate;
  DateTimePicker1.Width:=110;
  sFormat := 'dd.MM.yyyy HH:mm';
  DateTimePicker1.Perform(DTM_SETFORMAT, 0, DWORD(sFormat));
  sD:=DateToStr(DateTimePicker1.DateTime);
  sT:=TimeToStr(DateTimePicker1.DateTime);
  OutPutDebugString(PChar('DateTimePicker1Change: '+sD+'/'+sT));
end;

Vielen Dank schon im voraus.


[edit=alcaeus]Wir haben delphi-Tags, so musst du Code nicht mit BBCodes selbst formatieren Mfg, alcaeus[/edit]