reflektierender Ball - Hilfe!

[Smokey002]

ok danke erstmal den Leuten, die mir versucht haben zu helfen :)

habe jetzt den Ball und den Schläger.
Jetzt bräuchte ich noch eine Art Kollisionsabfrage zwischen den Beiden. Wie bewerkstellige ich dies?

[waldforest]

Hallo,
Zusätzlich zu den Panelgrenzen die Positione x/y des Schlägers mit den x/y Wetenn des Balls vergleichen.

[Leanahtan]

Zitat:

Zitat von schöni

Zitat:

Zitat von mkinzler

http://www.delphipraxis.net/internal_redirect.php?p=1145796#1145796

... und Du verlinkst zum Angucken den eigenen Thread, den der altuell gelesen wird, ...

:wall:
:roll:

[mkinzler]

Ich entschuldige mich nun förmlich überhaupt was geschrieben zu haben und überlege meine Moderatoren-Job aufzugeben!

[Leanahtan]

Sorry, da hast du was falsch verstanden. Als ich die Antworten auf deinen Link gelesen habe, habe ich den Drang verspürt, mit dem Kopf auf die Tastatur zu schlagen. Für mich war es eigentlich sofort einleuchtend, worauf der link hinweisen sollte. Wollte eigentlich nicht noch mehr Verwirrung stiften :oops:

[Smokey002]

Zitat:

Zitat von waldforest

Hallo,
Zusätzlich zu den Panelgrenzen die Positione x/y des Schlägers mit den x/y Wetenn des Balls vergleichen.

hallo,
mir ist nicht ganz klar wie ich die x/y Position des Schlägers mit denen des Balls vergleichen soll, da sich diese Werte ja andauernd verändern.

[waldforest]

Ja, dies ist richtig, aber prinzipiell erfolgt der Vergleich wie bei den Raumgrenzen des Panels, halt werden nicht die Panelgrenzen, sondern die des Schlägers als Wertepaar verglichen.


z.B. im Timer folgendes noch hinzufügen, hier kannst du über die .TOP auch noch ggf. einen sich im Raum bewegenden Schläger abfragen, also nicht nur einen Schläger der sich auf der x-Achse verändert.

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject); 
begin

 If ((sball.top+sball.Height >= Schlaeger.Top)  and (sball.top <= Schlaeger.Top)) then
         if (sball.left >= Schlaeger.left-Schlaeger.Width) and (sball.left <= Schlaeger.left+Schlaeger.Width) then
             by := -by;

// und weiter im bereits bestehenden Code

Dies lässt sich sicherlich noch optimieren, ist aber einmal ein Ansatz.