Registriert seit: 26. Mär 2010
254 Beiträge
Delphi XE Enterprise
|
Wie Event-Handler der gemeinsamen Basisklasse auseinanderhalten?
29. Apr 2011, 12:11
Hallo!
Ich habe eine Klasse TMain, die einen Event nach dem Observer-Pattern bereitstellt (also mit Register- und Unregister-Prozeduren, um mehrere Handler bedienen zu können). In der Register-Prozedur rufe ich zuerst die Unregister-Prozedur auf, um sicherzustellen, dass kein Handler doppelt registriert wird (durch etwaige Fehler an anderer Stelle). Danach wird der Handler in die Liste hinzugefügt.
In einer Basisklasse TBase, ist solch ein Event-Handler definiert. Diese Basisklasse wird nie direkt instanziert, sondern vorher immer zuerst 1x abgeleitet (z.B. als TSpec1, TSpec2, TSpec3 usw.). Die Instanzen von TSpec1 und TSpec2 registrieren nun bei der Instanzierung beide den Handler für den Event bei TMain. Da der Handler aber in der Basisklasse definiert ist, sind die Einsprungadressen (@Handler) alle gleich, beim Anlegen einer Instanz wird ja nur der Speicherplatz für die Felder (Membervariablen) neu reserviert, der ausführbare Code wird für alle Instanzen einer Klasse gemeinsam genutzt. Folge: Bei der Registrierung des Handlers von TSpec1 läuft alles nach Plan. Soll aber der Handler von TSpec2 registriert werden, dann wird der Handler von TSpec1 aus der Liste der Handler entfernt, da er die gleiche Einsprungadresse hat... Wie kann ich diese beiden Handler voneinander unterscheiden? Die Einsprungadresse reicht offensichtlich nicht aus.
p.s. Dabei stellt sich mir gleich die Frage: Wie funktioniert eigentlich die Zuordnung zu der richtigen Instanz, wenn die Handler aufgerufen werden (wenn der Event feuert)? Vielleicht kann man ja den gleichen oder einen daran angelehnten Mechanismus nutzen, um die Handler voneinander zu unterscheiden.
"Seit er seinen neuen Computer hat, löst er alle seine Probleme, die er vorher nicht hatte."
|