TWinControl und OnEnter-Event

[Hawkeye219]

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