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

[Der schöne Günther]

Natürlich! Ich dachte schon an Umrechnen in Bildschirmkoordinaten und dann die Parents abwandern wie da die Schnittmengen sind, aber natürlich, es geht ganz einfach:

Delphi-Quellcode:

function TControlHelper.isClipped(): Boolean;
begin
   if(not Assigned(parent)) then
      Exit(False);

   Result :=
      (Top < 0)
      or
      ((Top + Height) > parent.ClientHeight)
      or
      (Left < 0)
      or
      ((Left + Width) > parent.ClientWidth);
end;

Vielen Dank 👍