Entwickler-Ecke

Sonstiges (Delphi) - "Ball-Spiel" / Zählung bei Mausklick


procedure22 - Do 21.02.08 14:10
Titel: "Ball-Spiel" / Zählung bei Mausklick
Hallo zusammen,

ich bin Delphi-Interessiert und gerade dabei, es zu lernen. Hab eine PDF-Datei von einem Freund bekommen, in der die Programmiersprache Schritt für Schritt erklärt wird. Dazu gibt es dann immer Aufgaben, aber bei der aktuellen komme ich nicht weiter.

Es geht dabei um ein Spiel, in dem ein Ball herumhüpft und der Spieler in mit der Maus treffen muss. Die Treffer sollen gezählt werden. Ich habe schon einen Großteil des Programms geschrieben. Im Moment bin ich soweit, dass der Ball herumhüpft. Aber wie kann ich die Klicks auf den Ball automatisch zählen lassen? Gibt es auch die Möglichkeit, mehrere Bälle hüpfen zu lassen?

Vielen Dank schonmal und viele Grüße,
Hans-Peter


Narses - Do 21.02.08 14:23
Moin und :welcome: im Forum!

user profile iconprocedure22 hat folgendes geschrieben:
Das Delphi-Projekt habe ich hier für euch hochgeladen
Bitte lade das Projekt doch hier in den Anhang hoch, dann ist es für uns einfacher, da dran zu kommen. ;)

cu
Narses


jaenicke - Do 21.02.08 14:24
Ich werde mir das Projekt mal ansehen.

Crossposts solltest du verlinken, damit nicht doppelt überlegt wird, wenn bereits eine Anwort in einem Forum vorhanden ist...
http://www.delphipraxis.net/viewtopic.php?p=848758
// EDIT:
Und hier noch der andere Crosspost nachdem ich user profile iconKrokos Post gelesen hatte, dachte ich mir ja wo ich den finde^^:
http://forum.delphi-treff.de/showthread.php?p=165337


Kroko - Do 21.02.08 14:25
3 Foren, 3x das gleiche und alles ohne Link, :puke:


Xion - Do 21.02.08 14:27
1. :welcome:
2. Titel dieses Topics bitte ändern
3. Du musst die Mausposition auslesen und schauen, ob dieser Punkt innerhalb des Balles ist:


Delphi-Quelltext 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
 
var Pos: TPoint;
begin
  Pos:==Mouse.CursorPos;
  Pos:=Form1.ScreenToClient(Pos); //Rechnet Desktop-Koordinaten in Fenster-Koordinaten um

  Pos.X:=Pos.X-Ball.X; //Abstand zum Ball X
  Pos.Y:=Pos.Y-Ball.Y; //Abstand zum Ball Y

  Entfernung:=sqrt(Pos.X*Pos.X+Pos.Y*Pos.Y); //Pythagoras
end;


das ist dann schon die Lösung...aber bitte nicht einfach kopieren, sondern verstehen

//Edit: das ganze muss in die OnClick des Forms


procedure22 - Do 21.02.08 19:36
Entschuldigt bitte das mit den Crossposts, wusste nicht, dass das ungerne gesehen wird! War keine Absicht.

Hier also die anderen Forenlinks
http://forum.delphi-treff.de/showthread.php?p=165337#post165337
http://www.delphipraxis.net/post848964.html#848964
http://entwickler-forum.de/showthread.php?p=160264#post160264

Danke trotzdem schonmal!


Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!