Die Eigenschaft deklarieren

Nach oben zu Entscheiden, was gezeichnet werden soll

Wenn Sie eine neue Eigenschaft einführen, deklarieren Sie normalerweise ein private-Feld, das den Eigenschaftswert speichert, und Methoden zum Lesen und Schreiben dieses Wertes. Zum Lesen des Wertes brauchen Sie oft nicht einmal eine Methode.

Im Beispiel deklarieren Sie ein Feld, das die aktuelle Figur enthält, und eine Eigenschaft, die den Wert liest und ihn durch einen Methodenaufruf zuweist.

Fügen Sie TSampleShape die folgenden Deklarationen hinzu:

 type
   TSampleShape = class(TGraphicControl)
   private
     FShape: TSampleShapeType;  { Feld für den Eigenschaftswert }
     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};
 };

Nun brauchen Sie nur noch die Methode SetShape zu implementieren.