Ich hab den Quelltext jetzt so abgeändert:
Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Shape1.Left := Shape1.Left + vx;
Shape1.Top := Shape1.Top + vy;
if (Shape1.Left > ClientWidth - Shape1.Width - 1) or (Shape1.Left < 1) then
vx := vx * -1;
if (Shape1.Top > Panel2.Top - Shape1.Height - 1) or (Shape1.Top < 1) then
vy := vy * -1;
end;
Der Ball prallt jetzt zwar am Panel ab, aber auch wenn er das Panel verfehlt prallt er gena auf der Höhe
des Panels ab. Das liegt wohl daran das ich die Top Eigenschaft genommen hab, aber wie soll ichs sonst machen?