Die Implementierungsmethode schreiben

Nach oben zu Grafische Komponenten erzeugen - Index

Wenn auf die Schlüsselwörter read oder write ein Methodenbezeichner folgt, muss diese Methode implementiert werden.

Fügen Sie dem implementation-Abschnitt der Unit folgende Definition der Methode SetShape hinzu:

 procedure TSampleShape.SetShape(Value: TSampleShapeType);
 begin
   if FShape <>> Value then                           { Ignorieren, wenn keine Änderung }
   begin
     FShape := Value;                                { Neuen Wert speichern }
     Invalidate;                                     { Erneutes Zeichnen mit der neuen Form }
   end;
 end;

 void __fastcall TSampleShape::SetShape(TSampleShapeType Value)
 {
   if (FShape != Value)             // Ignorieren, wenn keine Änderung vorliegt
   {
      FShape = Value;               // Neuen Wert speichern
      Invalidate();                 // Neuen Bildaufbau auslösen
   }
 }