spiel Problem

**Saminem**

Hallo Leute
Das Jahr nähert sich ja langsam dem Ende und deswegen programmieren wir die letzten stunden ein spiel.
Ich wollte ein Geschicklichkeitsspiel programmieren.
Nun war meine erste Idee das ich ein Images nehmen und dann einen Timer welcher in jeder Sekunde ein neues left und top ausrechnet sieht in etwar so aus.

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm4.Timer1Timer(Sender: TObject);

begin

  image2.Left :=random(breite2);

  image2.top  :=random(hoehe2);

  if touch1 = true then begin

  inc(l);

  end;

  If l >= 5 then begin

  timer1.Enabled :=false;

  form4.Visible :=false;

  form1.visible :=true;

  showmessage('Du hast gewonnen');

end;

procedure TForm4.FormCreate(Sender: TObject);

begin

  breite2 :=(form4.width)-100;

  hoehe2  :=(form4.height)-100;

end;

procedure TForm4.Image2MouseDown(Sender: TObject; Button: TMouseButton;

  Shift: TShiftState; X, Y: Integer);

begin

  touch1 :=true;

end;

procedure TForm4.Image2MouseUp(Sender: TObject; Button: TMouseButton;

  Shift: TShiftState; X, Y: Integer);

begin

  touch1 :=false;

end;

Nun hab ich mir überlegt wie ich es schaffen kann das wenn ich das Bild berühre einen Punkt kriege.
Deshalb setzte ich touch1 auf true wenn der Maus Zeiger auf dem bild gedrückt ist.
Nun weiß ich leider noch nicht wie ich es schaffen kann das ich punkte abgezogen kriege wenn ich
das Image mal nicht treffe.
Mein Vorschlag ist es das ich im Timer abfrage ob die x und y Koordinaten mit left und top gleich sind funktioniert aber leider nicht.
Kann wer helfen

.
Danke schon mal im voraus das ihr meine letzteren Fragen immer so hilfreich beantwortet habt.

spiel Problem

spiel Problem

Forumregeln