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