19.3.2 創建圖形部件
圖形控制是一類簡單的部件。因為純圖形部件從不需要得到鍵盤焦點，所以它沒有也不要窗口句柄。包含圖形控制的應用程序用戶仍然可以用鼠標操作控制，但沒有鍵盤界面。在本例中提供的圖形部件是
TShape。Shape部件位於Component Palette的Additional頁。本例中的Shape部件有所不同，因此稱其為TSampleShape。創建圖形部件需要下列三個步驟：
●
創建和注冊部件●
公布(publishing)繼承的屬性 ● 增加圖形功能
19.3.2.1
創建和注冊部件每個部件的創建都從相同的方式開始，在本例中如下： ● 建立名為Shapes的部件單元 ● 從TGraphicControl 繼承，將新部件稱為TSampleShape ● 在Component Palette的Samples頁上注冊TSampleShape
unit Shapes
intertace
use SysUtils, WinTypes, WinProcs, Messages, Classes,
Graphics
，Controls，Forms;type
TSampleShape=class(TGraphicControl)
end;
implementation
procedure Register;
begin
RegisterComponents('Samples'
，[TSampleShape]);end;
end.
19.3.2.2
公布繼承的屬性一旦決定了部件類型，就能決定在父類的protected部分聲明哪些屬性和事件能為用戶可見。TGraphicControl已經公布了所有作為
