Hallo,
mein Delphi-Programm soll wie folgt funktionieren:
Es besteht aus einem Image-Feld, und in
procedure TForm1.Timer1Timer(Sender: TObject); ist folgendes zu finden:
Code:
image1.canvas.ellipse(10+6*sekunde,10,15+6*sekunde,15);
, wobei zugleich gilt:
D.h., jede Sekunde kommt ein neuer Kreis hinzu, und nach 60 Sekunden sind 60 Kreise gemalt worden. Nun sollen alle Kreise wieder verschwinden und die Prozedur von vorne losgehen.
Aber wie mache ich das?
Gruß,
Avicenna