Bonjour,

Alors rapidement en supposant deux objets de type

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
 
type 
 
  TCoordinates : class(TObject)
    public
       X : integer;
       Y : integer;
       Z : integer;
    end;
 
  TNewObjet : class(TObject)
    private
       FPosition : TCoordinates;
       procedure SetPosition(Value : TCoordinates );
       function GetPosition :  TCoordinates ;
    published
       property Position : TCoordinates read GetPosition write SetPosition;
    end;


Je souhaiterais intercepter une action sur instance, par exemple

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
 
var
  MonObjet : TNewObjet ;
begin
 
  MonObjet := TNewObjet.Create ;
 
  MonObjet.Position.X := 15; 
 
  MonObjet.Free;
end;
comme ici j'accede a l'attribut X de position on a en réalite l'équivalent de
MonObjet.GetPosition.X := 15;
or moi je voudrais générer une action entre :

MonObjet.Position.X := 15 et FPosition.X := 15;


Quelqu'un sait'il comment faire sa ?