TWinControl und OnEnter-Event

[Geronimo]

Hallo alle zusammen,

ich hätte da gern mal ein Problem und zwar:

Ich möchte einer Reihe von Komponenten unterschiedlicher Typen
(TEdit, TButton, ...) per Code ein OnEnter Event zuweisen.
Laut Hilfe so das alles TWinControls. TWinControl hat laut Hilfe
auch ein OnEnter-Event.

Folgender Code

Delphi-Quellcode:

for i := 0 to self.ControlCount-1 do
   if (self.Controls[i] is TWinControl) then
     (Controls[i] as TWinControl).OnEnter := AdaptMenuOnEnter;

funktioniert nicht:

Fehler: Undeclared identifier

Wer kann mir helfen. Wenn das nicht so geht müsste ich alle
durchprüfen, ob TEdit oder TButton etc.

Geronimo

[daddy]

Das Ereignis "OnEnter" ist in TWinControl nicht published, sondern protected. Das heißt, das erst in den abgeleiteten Komponenten festgelegt wird, ob es sichtbar sein soll.

Gruß, Daddy

[Geronimo]

...
schade!
Aber Danke für die Aufklärung!

Geronimo

[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

[xaromz]

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

[Geronimo]

@ Hawkeye219: TWinControlAccess funzt super. Danke. Ich sehe ihr seid
mit allen Delphi-Wassern gewaschen!

@ xaromz: Die "dreckige" Variante führt zu vielen Abfragen von Typen,
da ich viele davon verwende.

Dank an alle!

Geronimo

[xaromz]

Hallo,

Zitat von Geronimo:

@ xaromz: Die "dreckige" Variante führt zu vielen Abfragen von Typen,
da ich viele davon verwende.

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

[Geronimo]

Zitat:

Hallo,
Geronimo hat folgendes geschrieben:
@ xaromz: Die "dreckige" Variante führt zu vielen Abfragen von Typen,
da ich viele davon verwende.

Hast Du Dir meine Variante angesehen? Da gibt es keine Abfrage, der Code ist wie angegeben sofort für alle Nachkommen von TWinControl nutzbar.

...wohl nicht richtig. Und nicht getestet. Ich nehme alles zurück und behaupte das Gegenteil.
Habe jetzt deine Variante mal getestet. Sie funktioniert auch und tut das, was ich wollte,
allen TWinControls das Event aufdrücken (wenn auch unelegant).

Gruß Geronimo