Déclaration de la propriété

Remonter à Détermination de ce qui doit être dessiné

Généralement, pour déclarer une propriété, vous déclarez un champ privé pour stocker les données de la propriété puis vous spécifiez les méthodes pour lire et écrire sa valeur. Souvent, la méthode pour lire la valeur n'est pas nécessaire car un simple pointage sur la valeur stockée suffit.

S'agissant de notre contrôle forme, vous aurez à déclarer un champ contenant la forme courante, puis à déclarer une propriété qui lit ce champ et l'écrit via un appel de méthode.

Ajoutez les déclarations suivantes dans TSampleShape :

 type
   TSampleShape = class(TGraphicControl)
   private
     FShape: TSampleShapeType;  { champ pour contenir la valeur de la propriété }
     procedure SetShape(Value: TSampleShapeType);
   published
     property Shape: TSampleShapeType read FShape write SetShape;
   end;

 class PACKAGE TSampleShape : public TGraphicControl
 {
 private:
     TSampleShapeType FShape;
     void __fastcall SetShape(TSampleShapeType Value);
 __published:
     __property TSampleShapeType Shape = {read=FShape, write=SetShape, nodefault};
 };

Il ne vous reste plus qu'à ajouter l'implémentation de SetShape.