Bei mir tut sich da einfach nichts.
Ich poste jetzt mal den kompletten Quelltext von
procedure TForm1.Timer1Timer(Sender: TObject);:
Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if stunde < 10 then
ausgabestd:='0'+inttostr(stunde);
if stunde >= 10 then
ausgabestd:=inttostr(stunde);
if minute < 10 then
ausgabemin:='0'+inttostr(minute);
if minute >= 10 then
ausgabemin:=inttostr(minute);
if sekunde < 10 then
ausgabesek:='0'+inttostr(sekunde);
if sekunde >= 10 then
ausgabesek:= inttostr(sekunde);
sekunde:=sekunde+1;
begin;
if sekunde > 59 then
begin;
sekunde:=0;
minute:=minute+1;
image1.invalidate;
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;
außerdem noch die Variablendeklaration:
Delphi-Quellcode:
var
Form1: TForm1;
stunde,minute,sekunde:integer;
ausgabestd,ausgabemin,ausgabesek:string;
Ich hoffe, ihr könnt mir so weiterhelfen.