Es will bei mir nicht funktionieren!
Es sieht bei mir so aus:
Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
sekunde:=sekunde+1;
begin;
if sekunde > 59 then
begin;
sekunde:=0;
minute:=minute+1;
end;
if minute > 59 then
begin
minute:=0;
stunde:=stunde+1;
end;
if stunde > 59 then
stunde:=0;
label1.caption:='Zeit:'+ausgabestd+':'+ausgabemin+'.'+ausgabesek;
image1.canvas.ellipse(10+6*sekunde,10,15+6*sekunde,15);
if sekunde = 59 then
Image1.Invalidate;
end
end;