Verbleibende Zeit anzeigen

[alzaimar]

Delphi-Quellcode:

Procedure SetupTimer;
Begin
  Timer.Tag := 60; // So oft soll der Timer feuern, bis fettich
  Timer.Interval := 1000; // 1x pro Sekunde
  Timer.OnTimer := ShowRemaining;
  Timer.Enabled := True;
End;

Procedure TmyForm.ShowRemaining (Sender : TObject);
Begin
  Timer.Tag := Timer.Tag - 1;
  If Timer.Tag = 0 Then Begin
    Timer.Enabled := False;            // Timer Ausschalten
    Label2.Caption :='Fettich';
    DoWhatever;
    End
  Else 
    Label2.Caption := Format('Verbleibende Zeit %d Sekunden',[Timer.Tag]);
End;