Hallo,
Also da hast du ja schon fast alles was du brauchst du musst nun nur dafür sorgen das es etwas RANDOM wird am besten du machst dir einen Timer und generierst zuerst einen Integer im beriech von 0-2.
i := Random(3) ;
Nun ordnest du verschieden Integern verschiedene Funktionen zu
Bsp
Delphi-Quellcode:
case i of
0 : TKreis.Erscheinen ;
1 : TKreis.Bewegen ;
2 : TKreis.Verschwinden;
end;
Oder wenn ihr das noch nicht kennt kannst du auch ne If-Abfage machen
Delphi-Quellcode:
If i = 0 then TKreis.Erscheinen ;
If i = 1 then TKreis.Bewegen ;
If i = 2 then Kreis.Verschwinden;
So und um einen "hohlen" Kreis zu erzeugegen
Delphi-Quellcode:
Kreis := TKreis.Create (30,30,180);
Canvas.Brush.style := bsclear ;
(Nur wenn die Hintergrundfarbe des Fensters clBtnFace ist )
Gruß Christian