Einzelnen Beitrag anzeigen

Benutzerbild von himitsu
himitsu
Online

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.151 Beiträge
 
Delphi 12 Athens
 
#6

Re: Abfrage, ob ein Control "on top" ist?

  Alt 15. Dez 2008, 18:41
'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;
Neuste Erkenntnis:
Seit Pos einen dritten Parameter hat,
wird PosEx im Delphi viel seltener praktiziert.
  Mit Zitat antworten Zitat