Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by himitsu,
6. Jul 2009
du könntest die OnEnter- und OnExit-Ereignisse der Subkomponenten zuseisen und auf eine Prozedur deiner "Containerklasse" verweisen.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by himitsu,
6. Jul 2009
Die Eigenschaft ActiveControl kennt nicht nur TForm, sondern auch TScreen und davon gibt es ja eine aktive Instanz. :angel:
man kann so auch eine Eigenschaft draus machen
Function TMyContainer.BinIchOderEinesMeinerKomponentenAktiv: Boolean;
Var C: TComponent;
Begin
C := Screen.ActiveControl;
While Assigned(C) do Begin
If C = Self Then Begin
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by himitsu,
6. Jul 2009
ich glaub da ist es einfacher, von Form.ActiveControl auszugehn und die Parents abzufragen
var C: TComponent;
C := ActiveControl;
while Assigned(C) do begin
if C is TYourContainerClass then hervorheben(C);
C := C.Parent;
end;