Thema: Delphi Countdown erstellen

Einzelnen Beitrag anzeigen

Benutzerbild von alleinherrscher
alleinherrscher

Registriert seit: 8. Jul 2004
Ort: Aachen
797 Beiträge
 
Delphi XE2 Professional
 
#2

Re: Countdown erstellen

  Alt 13. Sep 2008, 16:47
Hi, am einfachsten geht das mit nem timer, wobei du z.B. eine Anzahl an Sekunden als Startparameter eingibst

FCountdown:=250;


und damm im timer die Zeit runterzählst und in einem Label darstellst:


Delphi-Quellcode:

TForm1.OnTimer1(Sender:TObject);
begin

FCountdown:=FCountdown-1;
label1.caption:='Noch '+inttostr(FCountdown)+' sekunden!';

if FCountdown:=0 then
  Timer1.enabled:=False;


end;
Das ganze kannst du dann noch verbesseren, indem du die Anzahl an Sekunden auch in Stunden und Minuten umrechnest

Grüße
„Software wird schneller langsamer als Hardware schneller wird. “ (Niklaus Wirth, 1995)

Mein Netzwerktool: Lan.FS
  Mit Zitat antworten Zitat