récupérer une instance à partir de sa propriété

bonjour,
j'ai le problème suivant (exemple simplifié):

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

interface   TXClass = Class(TComponent) end;   TYClass = Class(TThread) private FXClass:TXClass; constructor Create(AXClass: TXClass); end;   implementation   procedure TYClass.Create(AXClass: TXClass); begin inherited Create(True); FXClass:=AXClass; end;     XClass:=TXClass.Create(nil); YClass:=TYClass.Create(XClass);   procedure TX.OnEvent(Sender: TObject); begin TXClass(Sender)???????? end;

---

au déclenchement de OnEvent, j'obtiens une instance d'objet de type TXClass
qui est également la propriété FXClass d'une instance d'objet TYClass précise
existe-t-il un moyen de récupérer cette instance à partir de la propriété ?
les rtti, a priori, ne permettent pas de récupérer ce type d'info où alors j'ai zappé un truc :aie:
merci pour toutes vos suggestions

non, si XClass ne possède pas de référence vers YClass il n'est pas possible de le retrouver...c'est assez logique d'ailleurs :

Code:

---

1 2 3 4

XClass:=TXClass.Create(nil); YClass1:=TYClass.Create(XClass); YClass2:=TYClass.Create(XClass);

---

quelle instance devrait retourner XClass ? YClass1 ou YClass2 ? :)

le plus simple serait de gérer une propriété Parent de type YClass dans XClass ... comme le Owner ou le Parent dans TComponent ou TControl ... le tout couplé avec une notification pour les libérations de l'un ou l'autre évidemment !

trève estivale finie, j'ai repris le problème

Citation:

---

le plus simple serait de gérer une propriété Parent de type YClass dans XClass

---

bin c'est sûr, mais j'avais oublié de préciser que TXClass n'était pas en pratique dérivable (fuites mémoire) faute d'accès à sa source :oops:
c'est pourquoi je me demandais si le compilateur, lors de l'instanciation de la propriété FXClass maintenait nativement un champ, par hypothèse non documenté, pointant en amont vers l'instance de son objet "parent"
donc la réponse est non et je me suis débrouillé avec une petite astuce scabreuse, la prop Tag étant déjà utilisée :mrgreen:

Code:

---

1 2 3 4 5 6

procedure TYClass.Execute; begin . FXClass.DesignInfo:=Integer(Self); . end;

---

so résolu
merci pour vos réponses