DateTimePicker - Eingegebene Zeit wird nicht übernommen?

[nytaiceman]

Hallo zusammen,

ich habe auf einer Form ein DateTimePicker, einen Button und einen Timer gestellt.

In den Objekteigenschaften:
DateTimePicker.Format = HH:mm:ss
DateTimePicker.DateMode = DmUpDown

Ziel ist ein einfacher Countdown:
Zeit eingeben, auf START drücken und wenn Zeit bei NULL angekommen ist, ShowMessage ausgeben.

Das mit dem Rückwärtszählen funktioniert bereits einwandfrei, nur übernimmt DateTimePicker nicht die vom Benutzer eingestellte Zeit sondern die beim Programmstart aktuelle.

Delphi-Quellcode:

// === Press START =============================================================
procedure TForm1.Button1Click(Sender: TObject);
begin
// = Start Timer
  Timer1.Enabled := true;
end;

// === Countdown Timer =========================================================
procedure TForm1.Timer1Timer(Sender: TObject);
begin
// = DateTimePicker -1 s
 DateTimePicker1.DateTime := IncSecond(DateTimePicker1.DateTime, -1);

 If DateTimePicker1.DateTime*86400 <= 0 then
 begin
  ShowMessage('countdown abgelaufen');
  timer1.Enabled := false;
 end;

end;

Wie bringe ich DateTimePicker dazu, die vom Benutzer eingestellte Zeit als .DateTime Wert zu verwenden?

[DeddyH]

Zitat:

Delphi-Quellcode:

If DateTimePicker1.DateTime*86400 <= 0 then

Überleg einmal, wann diese Bedingung zutrifft.

[Bummi]

Delphi-Quellcode:

var
 t:TTime;
begin
  DateTimePicker1.DateTime := IncSecond(DateTimePicker1.DateTime, -1);
  Showmessage(DateTimeToStr(DateTimePicker1.Time) +'-'+ FloatToStr(DateTimePicker1.Time));
  t := Frac(DateTimePicker1.Time);
  Showmessage(DateTimeToStr(t) +'-'+ FloatToStr(t));
end;

[nytaiceman]

Ok, das mit der Bedingung habe ich vermutlich falsch gemacht, das muss ich noch anschauen.

Aber ich komme ja gar nicht soweit, weil wenn der Benutzer im DateTimePicker z.B. 10 Sekunden einstellt, wird nach Drücken auf START komischerweise nicht die vom Benutzer eingestellte Zeit übernommen und verrechnet, sondern der beim Programmstart aktuelle Zeitstempel.

Das ist meine eigentliche Frage, danke trotzdem für den Hinweis!