DateTimePicker dtkTime - Zeit wird nicht geändert

[Mazel]

Hallo,

ich habe in meinem Programm ein Fenster für Einstellungen. Wird das Fenster aufgerufen, so speichere ich alle möglichen Einstellungen in einem Record um diese dann, bei einem Klick auf den Abbruchbutton wieder hineinzu schreiben, so dass alle Änderungen aufgehoben werden. Nun klappt dass alles ganz gut mit String-, Boolean-, TDate- und Bytewerten aber irgendwie scheint TTime für meinen Picker eine Ausnahme zu machen. Wenn ich auf Abbrechen klicke, wird einfach der alte Wert nicht eingetragen, es bleibt der neue.
Ist jemand dieses Phänomen schon einmal aufgefallen? Mache ich etwas falsch?

Delphi-Quellcode:

// Record für Settings
 TSettings = Record
    Focus: Boolean;
    Start: Boolean;
    Date: TDate;
    Time: TTime;
    Minutes: String;
  end;

procedure GetSettings;
begin
 with Main do
  begin
   Settings.Focus := RBtFocus.Checked;
   Settings.Start := CBxStart.Checked;
   Settings.Date := DTPDate.Date;
   Settings.Time := DTPTime.Time;   // hier wird der richtige Wert eingelesen
   Settings.Minutes := EdtMinutes.Text;
  end;
end;

procedure SetSettings;
begin
 with Main do
  begin
   RBtFocus.Checked := Settings.Focus;
   CBxStart.Checked := Settings.Start;
   DTPDate.Date := Settings.Date;
   DTPDate.Time := Settings.Time;   // hier passiert nichts
   EdtMinutes.Text := Settings.Minutes;
  end;
end;

Kann mir jemand helfen?

Gruß
Mazel

[mkinzler]

Versuch mal:

Delphi-Quellcode:

DTPDate.DateTime := Settings.Date + Settings.Time;

[Mazel]

Leider bringt das nichts, da das Settings.Date zu einem DTP gehört bei dem ich das Datum anzeige. Ich habe also 2 DTP, eins für Datumanzeige und eins für Zeitanzeige.
[EDIT]
Mir fiehl eben noch ein, dass ich ja das Date von diesem DTPTime nehmen kann. Ich habe es ausprobiert aber es geht leider auch nicht
[/EDIT]

[Hawkeye219]

Zitat:

Zitat von Mazel

Leider bringt das nichts, da das Settings.Date zu einem DTP gehört bei dem ich das Datum anzeige. Ich habe also 2 DTP, eins für Datumanzeige und eins für Zeitanzeige.

Es wäre auch nicht ganz richtig. Siehe dazu auch diesen Beitrag.

Vielleicht hast du ja nur unglücklich kopiert:

Delphi-Quellcode:

DTPDate.Date := Settings.Date;
// DTPDate.Time := Settings.Time;   // hier passiert nichts 
DTPTime.Time := Settings.Time;   // so besser?

Gruß Hawkeye

[Mazel]

1000 x :wall:

Wenn man den ganzen Tag an mehr als ein Problem sitzt und dann mehrere Date oder Time hat, fällt einem der Fehler einfach nicht auf.

Danke Hawkeye219, ein wachsames Auge war nötig. :zwinker:

Gruß
Mazel