Projekt für die Schule

[-187-]

Du hättest deinen ersten Beitrag nur editieren brauchen. Jetzt haben wir die hässlichen Code immernoch im Thread

[Deep-Sea]

Wäre es nicht besser, TKreis von TGraphicControl abzuleiten und dann natürlich auf dessen eigenen Canvas zu zeichnen anstatt fix auf den der "Form1"?!

Nachtrag:
Wenn man den Kreis nicht ausgefüllt haben möchte, setzt man nicht Canvas.Brush.Color auf irgend etwas sondern statt dessen Canvas.Brush.Style auf bsClear.

[roboter202]

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

[Deep-Sea]

Zitat von roboter202:

So und um einen "hohlen" Kreis zu erzeugegen

Delphi-Quellcode:

  [...]
  Canvas.Brush.Color := clBtnFace;

*auf meinen vorherigen Post zeig*

[roboter202]

Zitat von Deep-Sea:

Zitat von roboter202:

So und um einen "hohlen" Kreis zu erzeugegen

Delphi-Quellcode:

  [...]
  Canvas.Brush.Color := clBtnFace;

*auf meinen vorherigen Post zeig*

Habs erst nachher gesehen deine Lösung ist besser

[Julie92]

Also bewirkt Random das Zappeln des Kreises? Wo muss ich diesen Teil in meinen Quelltext einfügen?
Danke

[-187-]

In Delphi gibt Random eine Zufallszahl im Bereich 0 <= X < Range zurück. Wird der Parameter Range nicht angegeben, liefert Random einen Real-Wert im Bereich

0 <= X < 1.

Um den Zufallszahlengenerator zu initialisieren, rufen Sie Randomize einmal auf oder weisen der Variablen RandSeed vor dem Aufruf von Random einen Wert zu.