Abfrage, ob ein Control "on top" ist?

[himitsu]

'ne einfache Version nur auf Visible und Co. beruhend ...

Delphi-Quellcode:

Function isVisibled(C: TControl): Boolean;
  Begin
    Repeat
      Result := C.Visible
        and (not (C is TTabSheet) or (TTabSheet(C).PageControl.ActivePage <> C));
        // and (not (C is Txyz) or not Txyz(C).{visibled})
      C := C.Parent;
    Until not Assigned(C) or not Result;
  End;