Ping Pong Game schläger sollen nicht über fenster rand

[Daveman]

Hab ich halt mit Hilfe dann selber gelöst...

Delphi-Quellcode:

procedure TTennisForm.schlaegerrechtsTimer(Sender: TObject);
begin
  paddlerechts.Top := paddlerechts.Top + hochrunterrechts;
  if Paddlerechts.top < 18 then
     begin
       // Oben angestoßen
       Paddlerechts.top :=18;
     end;
  If Paddlerechts.top + PaddleRechts.Height > 544 then
     begin
       // Unten angestoßen
       Paddlerechts.top := 544 - PaddleRechts.Height;
       HochRunterRechts :=0;
     end;
end;

cya