Hallo,
da das Ereignis schon da ist, und nur als protected markiert ist, kannst Du einen "dreckigen" Trick verwenden und einfach hart auf eine Klasse casten, in der es published ist, z. B. ein TButton:
Delphi-Quellcode:
for i := 0 to ControlCount - 1 do
if (Controls[i] is TWinControl) then
TButton(Controls[i]).OnEnter := AdaptMenuOnEnter;
Das funktioniert deshalb, weil das Ereignis ja nur die Sichtbarkeit ändert (also die Attribute), aber nicht die Position im Speicher. Sauber ist natürlich was anderes...
Gruß
xaromz