Zitat von
Darksniper:
der timer funktioniert aber das label kommt nicht nach mit dem aktualisieren
Eine exakte Fehlerbeschreibung ist alles!
Es ist nicht das Label, was nicht nachkommt, sondern dein algo ist falsch. Darauf kommt man in dem man bemerkt, dass nicht jede zweite Zahl ausgelassen wird (oder eine willkürliche), sondern immer wieder dieselben.
Delphi-Quellcode:
procedure TForm3.Timer1Timer(Sender: TObject);
var
EM,ES,EH: Integer;
begin
if SZ=0
then //diese Abfrage noch als Ergänzung
Button3click(self)
else
begin
dec(SZ);
EH:=SZ
div 3600;
EM:=(SZ
div 60)
mod 60;
ES:=SZ
mod 60;
label1.Caption:=format('
%2d:%2d:%2d',[EH,EM,ES]);
end;
end;