Hallo Geronimo,
versuche es so:
Delphi-Quellcode:
type
TWinControlAccess = class (TWinControl);
for i := 0 to self.ControlCount-1 do
if (self.Controls[i] is TWinControl) then
TWinControlAccess(Controls[i]).OnEnter := AdaptMenuOnEnter;
Durch die Vereinbarung des Typs
TWinControlAccess verschaffst du dir in der
Unit Zugang zu den protected Methoden und Eigenschaften.
Gruß Hawkeye