Frage zu "Ball"-Spiel / Zähler für Mausklick

[Larsi]

Dann geh doch im Objektinspektor auf Form1 und klick dann auf oncreate

[DeddyH]

Im Quellcode heißt das "FormCreate".

[procedure22]

Meint ihr diese Zeile?

Code:

Hase.init(clRed,Random(Bild.width-50)+25,Random(Bild.Height-50)+25,Random(9)-4,Random(9)-4,20);

Egal, was ich da ändere, der Hase wird nicht doppelt so groß.

[DeddyH]

Setz da mal als erste Zeile ein Randomize rein. Das hatte ich glatt übersehen.

[edit] Oh Mann, klar, der Radius steht ja mit 20 fest drin. Ändere zusätzlich mal die genannte Zeile in

Delphi-Quellcode:

     Hase.init(clRed,Random(Bild.width-50)+25,Random(Bild.Height-50)+25,Random(9)-4,Random(9)-4,Random(30) + 20);

[/edit]

[procedure22]

Jetzt geht alles. Vielen Dank!

[procedure22]

Noch ein kleines Extra^^

Ich hätte neben dem "Beenden"-Button gerne noch einen Knopf "Neustart", also praktisch ein Reset des Zählers auf Null und ein neuer Hase kommt ins Bild, der alte verschwindet.

Ist das realisierbar?

[DeddyH]

Klar, Du musst auf Knopfdruck nur den "Hasen" neu intialisieren.

[procedure22]

Hab das so gemacht. Der Hase verschwindet, aber taucht nicht mehr wieder auf. Zähler wird auch nicht zurückgesetzt

Code:

procedure TForm1.NeustartClick(Sender: TObject);
begin
  Randomize;
  Hase := tHase.create;
end;

[DeddyH]

Delphi-Quellcode:

procedure TForm1.NeustartClick(Sender: TObject);
begin     
  Zaehler := 0;
  ShowTreffer;
  Hase.init(clRed,Random(Bild.width-50)+25,Random(Bild.Height-50)+25,Random(9)-4,Random(9)-4,Random(30) + 20);
  Hase.ZeigDich;
end;

[procedure22]

Ah, jetzt geht es. Das wars auch schon. Vielen Dank!