kannste mir ma zeigen wie dat genau geht hab jetzt so:
Delphi-Quellcode:
GetCursorPos(mausPos);
ScreenToClient(Mauspos);
if Ball.top<mauspos.y then
b:=1;
if Ball.Top+Ball.Height>mauspos.Y then
b:=-1;
if Ball.left<mauspos.Y then
c:=1;
if Ball.Left+Ball.Width>mauspos.Y then
c:=-1;
Ball.Left:=Ball.Left+c;
Ball.Top:=Ball.Top+b;
was muss man noch ändern?
muss vor
ScreenToClient(Mauspos);
noch nen
Mauspos:=
oder so?