ich würde statt nem eckigen ball einfach nen shape nemen.
Delphi-Quellcode:
//Bestimmung der x- und yposition
xpos:= xpos+xspeed*vx;
ypos:= ypos+yspeed*vy;
//Beim Rand Anstoß
if (xpos<0) then begin
xspeed:= 1;
xpos:= 0;
punkte2:= punkte2+1;
end;
if (xpos+ball.width>=form1.ClientWidth) then begin
xspeed:= -1;
xpos:= form1.clientwidth-ball.width;
punkte1:= punkte1+1;
end;
if (ypos<0) then begin
yspeed:= 1;
ypos:= 0;
end;
if (ypos+ball.height>=form1.Clientheight) then begin
yspeed:= -1;
ypos:= form1.clientheight-ball.height;
end;
//Bestimmung der Ballposition
ball.top:= ypos;
ball.left:= xpos;
das ist noch der code für die ballbewegung ohne schläger abrall.
