ich hatte mal sowas ähnliches, sollte so in etwa funktionieren:
Delphi-Quellcode:
if (Maus.Left+Maus.Width) > Spielfeld.ClientWidth then
Maus.Left := Spielfeld.ClientWidth - Maus.Width;
If (Katze.Left+Katze.Width) > Spielfeld.ClientWidth then
Katze.Left := Spielfeld.ClientWidth-Katze.Width;
If (Maus.Top+Maus.Height) > Spielfeld.ClientHeight then
Maus.Top := Spielfeld.ClientHeight - Maus.Height;
If (Katze.Top+Katze.Height) > Spielfeld.ClientHeight then
Katze.Top := Spielfeld.ClientHeight-Katze.Height;