Ball Programm ( 2 Bälle bewegen sich )

[_frank_]

also ich hab das ballabstoßen damals mit dem Satz des Pythagoras gemacht
Hypotenuse^2=ankathete^2+gegenkathete^2

so in etwa (ungetested)

Delphi-Quellcode:

minabstand:=ball.width^2;
xdiff:=abs(ball2.left-ball1.left);
ydiff:=abs(ball2.top-ball1.top);
abstand:=xdiff*xdiff+ydiff*ydiff;
if abstand<minabstand then coll:=true;

HTH Frank