Ecriture de la méthode d'implémentation

Remonter à Création d'un composant graphique - Index

Lorsque la partie read ou write d'une définition de propriété utilise une méthode plutôt qu'un accès direct aux données stockées de la propriété, vous devez implémenter ces méthodes.

Ajoutez l'implémentation de la méthode SetShape à la partie implementation de l'unité :

 procedure TSampleShape.SetShape(Value: TSampleShapeType);
 begin
   if FShape <> Value then                           { ignore s'il n'y a pas eu de changement }
   begin
     FShape := Value;                                { stocker la nouvelle valeur }
     Invalidate;                                     { forcer le dessin avec la nouvelle forme }
   end;
 end;

 void __fastcall TSampleShape::SetShape(TSampleShapeType Value)
 {
   if (FShape != Value)             // ignore s'il n'y a pas eu de changement
   {
      FShape = Value;               // stocke la nouvelle valeur
      Invalidate();                 // force le dessin avec la nouvelle forme
   }
 }