grmmm ..
Immer noch feste werte !
const dx=5;
Wie soll sich der Ball dann bewegen.
EDIT:
Blick da nicht mehr durch.
Man hat dir schon soviele vorschläge unterbreitet und du hast nichts davon angenommen.
Ich beziehe mich hier drauf.
Delphi-Quellcode:
if (Shape1.Top <= 0) or (Shape1.Top >= image1.ClientHeight - Shape1.Height) then
begin
dy := -dy;
end;
if (Shape1.Left <= 0) or (Shape1.Left >= image1.ClientWidth - Shape1.Width) then
begin
dx := -dx;
end;
Scheint aber wieder verworfen zu sein.
gruss