|
Registriert seit: 12. Jul 2016
Ort: Bosnien und Herzegowina
17 Beiträge
|
AW: Weiterlernen
11. Aug 2016, 22:49
Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
//bei jedem Aufruf des Timer-Ereignisses
totaltime := IncSecond(totaltime, -1); //1 Sekunde abziehen
label1.Caption:=Timetostr(totaltime); //Label aktualisieren
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
totaltime := IncSecond (0,60); //hier deine Variable initialisieren!
end;
end.
DANKE! 
PS:Muss ich das so machen weil sich die variable sonst bei jedem timer tick "resetet" ?
|