Online
Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.151 Beiträge
Delphi 12 Athens
|
Re: Abfrage, ob ein Control "on top" ist?
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.
|