2011計(jì)算機(jī)等考Delphi：Delphi自定義部件開發(fā)

　　19.3.2.2 公布繼承的屬性

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

　　type

　　TSampleShape=class(TGraphicControl)

　　published

　　property DragCursor;

　　property DragMode;

　　property OnDragDrop;

　　property OnDragOver;

　　property ONEndDrag;

　　property OnMouseDown;

　　property OnMouseMove;

　　property OnMouseup;

　　end;

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

　　19.3.2.3 .增加圖形能力

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

　　● 決定畫什么

　　● 怎樣畫部件圖形

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

　　1. 決定畫什么

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

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

　　● 聲明屬性類型

　　● 聲明屬性

　　● 編寫實(shí)現(xiàn)方法

　�、� 聲明屬性類型

　　當(dāng)聲明一個(gè)用戶自定義類型的屬性時(shí)，必須首先聲明屬性類型。最普通地用于屬性的自定義類型是枚舉類型。

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

　　type

　　TSampleShapeType=(sstRectangle, sstSquare, sstRoundRect,

　　sstRoundSquare, sstEllipse, sstCircle);

　　TSampleShape = class(TGraphicControl)

　　end;

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

　�、� 聲明屬性

　　當(dāng)聲明一個(gè)屬性時(shí)，通常需要聲明私有域來保存屬性值，然后描述讀寫屬性值的方法。

　　對(duì)于Shape控制，將聲明一個(gè)域保存當(dāng)前形狀，然后聲明一個(gè)屬性通過方法調(diào)用來讀寫域值。

　　type

　　TSampleShape=class(TGrahpicControl)

　　private

　　FShape: TSampleShapeType;

　　procedure SetShape(value: TSampleShapeType);

　　published

　　property Shape: TSampleShapeType read FShape write SetShape;

　　end;

　　現(xiàn)在，只剩下SetShape的實(shí)現(xiàn)部分了。

　　⑶ 編寫實(shí)現(xiàn)方法

　　下面是SetShape的實(shí)現(xiàn)：

　　procedure TSampleShape.SetShape(value: TSampleShapeType);

　　begin

　　if FShape<>value then

　　begin

　　FShape := value;

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

　　end;

　　end;

　　2. 覆蓋constructor和destructor

　　為了改變?nèi)笔傩灾岛统跏蓟考䲟碛械膶?duì)象，需要覆蓋繼承的constructor和destructor方法。

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

　　本例中Shape控制的大小的初始設(shè)置為邊長(zhǎng)65個(gè)象素點(diǎn)。

　　⑴ 在部件聲明中增加覆蓋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;

　　⑶ 在庫單元的實(shí)現(xiàn)部分編寫新的constructor

　　constructor TSampleShape.Create(Aowner: TComponent);

　　begin

　　inherited Create(AOwner);

　　width := 65;

　　Height := 65;

　　end;