Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by xaromz,
27. Apr 2007
Hallo,
Hast Du Dir meine Variante angesehen? Da gibt es keine Abfrage, der Code ist wie angegeben sofort für alle Nachkommen von TWinControl nutzbar.
Gruß
xaromz
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by xaromz,
27. Apr 2007
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:
for i := 0 to ControlCount - 1 do
if (Controls is TWinControl) then
TButton(Controls).OnEnter := AdaptMenuOnEnter;
Das funktioniert deshalb, weil das Ereignis ja nur die...