Hallo,
Ich nutze das BDS2006.
Ich möchte in einem Formular per Schleife allen Objekten das gemeinsame Ereigniss "onMouseEnter" zuweisen.
Delphi-Quellcode:
for I := 0 to Self.ComponentCount - 1 do
Begin
Comp := Self.Components[I];
if comp is TControl then TControl(Comp).onMouseEnter := MeineProc;
end;
Das "problem" ist, das onMouseEnter in der Klasse TControl() protected deklariert ist und ich demnach natürlich nicht auf diese Methode zugreifen kann (ist ja auch logisch). Diese Methode wird erst in den entsprechenden "Endklassen" (TEdit,TMemo...) published freigegeben
Nur wie könnte ich eine solche schleife Automatisieren? Da ich eine Lösung ala
Delphi-Quellcode:
for I := 0 to Self.ComponentCount - 1 do
Begin
Comp := Self.Components[I];
if comp is TEdit then TEdit(Comp).onMouseEnter := MeineProc;
if comp is TButton then TButton(Comp).onMouseEnter := MeineProc;
....
end;
irgendwie viel zu aufwendig/umständlich finde.
danke schonmal im vorraus
mfg Jens