メソッドの実装

グラフィック コンポーネントの作成：インデックス への移動

プロパティ定義の read または write 部で，プロパティデータの操作方法として，直接アクセスではなくメソッドを指定した場合には，そのメソッドを実装する必要があります。

次のように，ユニットの implementataion 部に SetShape メソッドの実装を記述します。

 procedure TSampleShape.SetShape(Value: TSampleShapeType);
 begin
   if FShape <> Value then                           { 変更されていない場合は無視 }
   begin
     FShape := Value;                                { 新しい値を格納 }
     Invalidate;                                     { 新しい図形の再描画 }
   end;
 end;

 void __fastcall TSampleShape::SetShape(TSampleShapeType Value)
 {
   if (FShape != Value)             // 変更されていない場合は無視
   {
      FShape = Value;               // 新しい値を格納
      Invalidate();                 // 新しい図形の再描画
   }
 }