Countdown

[ice]

hi leute...

ich hoffe mal wieder, das sich jemand findet, der mir weiterhelfen kann...
<br><br>
<b>Situation:</b>

Panel1 zeit die aktuelle uhrzeit an.

mit ComboBox1,ComboBox2 und ComboBox3 kann eine uhrzeit ausgewählt werden.

in Panel2 soll die restzeit ausgegeben werden.
<br><br>
<b>Problem:</b>

wenn ich auf Button1 klicke, soll in Panel2 die Restzeit, die zwischen der aktuellen Uhrzeit und der ausgewählten uhrzeit der ComboBoxen angezeigt werden...
<br><br>
<b>Beispiel:</b>

Panel1 zeigt 13:05:00
in den ComboBoxen wird 13:15:00 eingestellt

nach Buttonklick soll nun Panel2 die Restzeit zeigen

<b>00:10:00 und abwärts zählend</b>

es wäre toll, wenn darauf jemand ne antwort wüsste...weil langsam bin ich mit meinem latain am ende...
<br><br><br>
gruß
ice

[Geert Dade]

Moin ice,

Ein Code, der die von Dir beschriebene Funktionalität erfüllt, besteht im Wesentlichen durch diese beiden procedures:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Timer1.Enabled := False;
try
pnAktTime.Caption := FormatDateTime('hh:nn:ss', Now);

if (FSelectedDateTime > 0) then begin
if (FSelectedDateTime <= Now) then begin
pnTimeDiff.Caption := '00:00:00';
FSelectedDateTime := 0;
end
else pnTimeDiff.Caption :=
FormatDateTime('hh:nn:ss', (FSelectedDateTime-Now));
end;
finally
Timer1.Enabled := (not (csDestroying in Self.ComponentState));
end;
end;

procedure TForm1.BtnInitTimeDifffClick(Sender: TObject);
var
dtSet : TDateTime;
begin
dtSet := EncodeTime(StrToIntDef(cbStd.Text, 0), StrToIntDef(cbMin.Text, 0),
StrToIntDef(cbSec.Text, 0), 0);
if (dtSet > Frac(Now))
then FSelectedDateTime := Trunc(Now) + dtSet
else FSelectedDateTime := Trunc(Now) + 1 + dtSet;
end;

Ich schicke den kompletten Code als Anhang mit.

Gruß,
Geer

[ice]

hi geert,

super toll...danke für deine hilfe...

funktioniert wunderprima ;-)

mfg
ic