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