Mal sehen: wenn man sehr "streng" ist, kann man sagen
Delphi-Quellcode:
//Mitte (X-Achse) des Shapes ermitteln
ShapeMitte := Shape.Left + Shape.Width div 2;
if (ShapeMitte < Panel.Left) or (ShapeMitte > (Panel.Left + Panel.Width)) then
daneben;
So sollte es eigentlich gehen, habs nur so hingeschrieben.