Delphi-Quellcode:
procedure TForm1.zeitTimer(Sender: TObject; LagCount: Integer);
begin
if tlsec > 0
then
begin
dec(tlsec);
end
Else
begin
If tlmin > 0
then
begin
dec(tlmin);
tlsec:=tlsec+59;
end
ELSE
begin
loose.enabled:=true;
zeit.Enabled:=false;
end;
end;
zeitm.caption:=inttostr(tlmin);
zeits.caption:=inttostr(tlsec);
end;
ich raff echt nicht wieso das nicht geht.... die var tlsec ist auf 20 und nach 20 sec passiert nichts!!! und die Anzeige wird auch nicht aktualisiert...