Image wieder blank machen

[leddl]

Zitat von NickelM:

Um auf Apollonius Antwort zurückzukommen. Um jetzt diesen Schrittt zuwiederholen musst du ne eigene Prozedure schreiebn und ne If - then anweisung:

Wieso muss sie (?) ne extra Prozedur schreiben?

Delphi-Quellcode:

var: sekunde : Integer;

[...]
  sekunde := 0;
[...]

procedure TForm1.Timer1Timer(Sender : TObject) 
begin
  if sekunde = 59 then
  begin
    Image1.Invalidate;
    sekunde := 0;
  end
  
  image1.canvas.ellipse(10+6*sekunde,10,15+6*sekunde,15); 
  inc(sekunde);
end;