19.3.2.2 公布繼承的屬性

　　一旦決定了部件類型，就能決定在父類的protected部分聲明哪些屬性和事件能為用戶可見。TGraphicControl已經公布了所有作為圖形控制的屬性，因此，只需公布響應鼠標和拖放事件的屬性。

　　type

　　TSampleShape=class(TGraphicControl)

　　published

　　property DragCursor;

　　property DragMode;

　　property OnDragDrop;

　　property OnDragOver;

　　property ONEndDrag;

　　property OnMouseDown;

　　property OnMouseMove;

　　property OnMouseup;

　　end;

　　這樣，該Shape控制具有通過鼠標和拖放與用戶交互的能力。

　　19.3.2.3 .增加圖形能力

　　一旦你聲明了圖形部件并公布了繼承的屬性，就可以給部件增加圖形功能。這時需要知道兩點：

　　● 決定畫什么

　　● 怎樣畫部件圖形

　　在Shape控制的例子中，需要增加一些能使用戶在設計時改變形狀的屬性。

　　1. 決定畫什么

　　圖形部件通常都具有改變外觀的能力，圖形控制的外觀取決于其某些屬性的結合，例如Gauge控制具有決定其形狀、方向和是否圖形化地顯示其過程的能力。同樣，Shape控制也應有決定顯示各種形狀的能力.

　　給予Shape控制這種能力，增加名為Shape的屬性。這需要下列三步：

　　● 聲明屬性類型

　　● 聲明屬性

　　● 編寫實現方法

　　⑴ 聲明屬性類型

　　當聲明一個用戶自定義類型的屬性時，必須首先聲明屬性類型。最普通地用于屬性的自定義類型是枚舉類型。

　　對Shape控制來說，需要聲明一個該控制能畫形狀的枚舉，下面是枚舉類型的聲明：

　　type

　　TSampleShapeType=(sstRectangle, sstSquare, sstRoundRect,

　　sstRoundSquare, sstEllipse, sstCircle);

　　TSampleShape = class(TGraphicControl)

　　end;

　　這樣，就可以用該類型來聲明屬性。

　　⑵ 聲明屬性

　　當聲明一個屬性時，通常需要聲明私有域來保存屬性值，然后描述讀寫屬性值的方法。

　　對于Shape控制，將聲明一個域保存當前形狀，然后聲明一個屬性通過方法調用來讀寫域值。

　　type

　　TSampleShape=class(TGrahpicControl)

　　private

　　FShape: TSampleShapeType;

　　procedure SetShape(value: TSampleShapeType);

　　published

　　property Shape: TSampleShapeType read FShape write SetShape;

　　end;

　　現在，只剩下SetShape的實現部分了。

　　⑶ 編寫實現方法

　　下面是SetShape的實現：

　　procedure TSampleShape.SetShape(value: TSampleShapeType);

　　begin

　　if FShape<>value then

　　begin

　　FShape := value;

　　Invalidate(True); { 強制新形狀的重畫 }

　　end;

　　end;

　　2. 覆蓋constructor和destructor

　　為了改變缺省屬性值和初始化部件擁有的對象，需要覆蓋繼承的constructor和destructor方法。

　　圖形控制的缺省大小是相同的，因此需要改變Width和Height屬性。

　　本例中Shape控制的大小的初始設置為邊長65個象素點。

　　⑴ 在部件聲明中增加覆蓋constructor

　　type

　　TSampleShape=class(TGraphicControl)

　　public

　　constructor Create(Aowner: TComponent); override;

　　end;

　　⑵ 用新的缺省值重新聲明屬性Height和width

　　type

　　TSampleShape=class(TGrahicControl)

　　published

　　property Height default 65;

　　property Width default 65;

　　end;

　　⑶ 在庫單元的實現部分編寫新的constructor

　　constructor TSampleShape.Create(Aowner: TComponent);

　　begin

　　inherited Create(AOwner);

　　width := 65;

　　Height := 65;

　　end;