Hoi,
ich habs mal mit GetTickCount versucht:
Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
var
milsek,tdiv: cardinal;
begin
milsek := GetTickCount;
tdiv := milsek-starttime;
if tdiv >= 1000 then
begin
inc(sek);
starttime := starttime + 1000;
end;
if sek >= 60 then
begin
sek := 0;
inc(min);
end;
label1.Caption := inttostr(min)+':'+inttostr(sek)+':'+inttostr(tdiv);
end;
Am Anfang muss starttime "gesetzt" werden, natürlich auch mit GetTickCount.
Und die drei anderen Vars noch global definieren:
Delphi-Quellcode:
var
min,sek,starttime : Cardinal;