Wie stelle ich fest ob ein Control nur halb sichtbar ist?

[Uwe Raabe]

Geht auch etwas stylischer :

Delphi-Quellcode:

function TControlHelper.isClipped(): Boolean;
begin
   if(not Assigned(parent)) then
      Exit(False);  
   Result := not Parent.ClientRect.Contains(BoundsRect);
end;