Discussion :

[omen999]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
merci pour toutes vos suggestions

[Paul TOTH]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
XClass:=TXClass.Create(nil);
YClass1:=TYClass.Create(XClass);
YClass2:=TYClass.Create(XClass);

quelle instance devrait retourner XClass ? YClass1 ou YClass2 ?

[ShaiLeTroll]

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 !

[omen999]

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

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
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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
procedure  TYClass.Execute;
begin
.
FXClass.DesignInfo:=Integer(Self);
.
end;

so résolu
merci pour vos réponses