19.2.1.3 建立新部件的方法

　　建立新部件的方法有兩種：

　　● 手工建立部件

　　● 使用Component Expert

　　一旦完成建立后，就得到所需的最小功能單位的部件，并可以安裝在Component Palette上。安裝完后，你就能將新部件放置在窗體窗口，并可在設計階段和運行階段進行測試。你還能為部件增加新的特征、更新選擇板、重新測試。

　　1. 手工創建部件

　　顯然創建部件最容易的方法是使用Component Expert。然而，你也能通過手工來完成相同步驟。

　　手工創建部件需要下列三步：

　　● 創建新的庫單元

　　● 繼承一個部件對象

　　● 注冊部件

　　⑴ 創建新的庫單元

　　庫單元是Object Pascal代碼的獨立編譯單位。每一個窗體有自己的庫單元。大多數部件(在邏輯上是一組)也有自己的庫單元。

　　當你建立部件時，你可以為部件創建一個庫單元，也可將新的部件加在已有的庫單元中。

　　① 為部件創建庫單元，可選擇File/New... ，在New Items對話框中選擇Unit，Delphi將創建一個新文件，并在代碼編輯器中打開它

　　② 在已有庫單元中增加部件，只須選擇File/OPen為已有庫單元選擇源代碼。在該庫單元中只能包含部件代碼，如果該庫單元中有一個窗體，將產生錯誤

　　⑵ 繼承一個部件對象

　　每個部件都是TComponent的后代對象。也可從TControl、TGraphicControl等繼承。

　　為繼承一個部件對象，要將對象類型聲明加在庫單元的interface部分。

　　例如，建立一個最簡單的從TComponent直接繼承非可視的部件，將下列的類型定義加在部件單元的interface部分。

　　type

　　TNewComponent=class(TComponent)

　　……

　　end;

　　現在你能注冊TNewComponent。但是新部件與TComponent沒什么不同，你只創建了自己部件的框架。

　　⑶ 注冊部件

　　注冊部件是為了告訴Delphi什么部件被加入部件庫和加入Component Palette的哪一頁。

　　為了注冊一個部件：

　　① 在部件單元的interface部分增加一個Register過程。Register不帶任何參數，因此聲明很簡單：

　　procedure Register;

　　如果你在已有部件的庫單元中增加部件，因為已有Register 過程，因此不須要修改聲明。

　　② 在庫單位的implementation部件編寫Register過程為每一個你想注冊的部件調用過程RegisterComponents，過程RegisterComponents帶兩個參數：Component Palette的頁名和部件類型集。例如，注冊名為TNewComponent的部件，并將其置于Component Palette的Samples頁，在程序中使用下列過程：

　　procedure Register;

　　begin

　　RegisterComponents('Samples', [TNewComponent]);

　　end;

　　一旦注冊完畢，Delphi自動將部件圖標顯示在Component Palette上。

　　2. 使用Component Expert(部件專家)

　　你能使用Component Expert創建新部件。使用Component Expert簡化了創建新部件最初階段的工作，因為你只需描述三件事：

　　● 新部件的名字

　　● 祖先類型

　　● 新部件要加入的Component Palette頁名

　　Component Expert執行了手工方式的相同工作：

　　● 建立新的庫單元

　　● 繼承得到新部件對象

　　● 注冊部件

　　但Component Expert不能在已有單元中增加部件。

　　可選擇File/New... ，在New Items對話框中選擇Component，就打開Component Expert對話框。

　　填完Component Expert對話框的每一個域后，選擇OK。Delphi建立包括新部件和Register過程的庫單元，并自動增加uses語句。

　　你應該立刻保存庫單元，并給予其有意義的名字。