delphi自定義部件開發(fā)一(編輯修改稿)
2024-09-26 10:00 本頁面
【文章內容簡介】 程 RegisterComponents，過程 RegisterComponents 帶兩個參數：Component Palette 的頁名和部件類型集。例如，注冊名為 TNewComponent的部件，并將其置于 Component Palette 的 Samples 頁，在程序中使用下列過程： procedure Register。 begin RegisterComponents(39。Samples39。, [TNewComponent])。 end。 一旦注冊完畢， Delphi 自動將部件圖標顯示在 Component Palette 上。 2. 使用 Component Expert（部件專家） 你能使用 Component Expert 創(chuàng)建新部件。使用 Component Expert 簡化了創(chuàng)建新部件最初階段的工作，因為你只需描述三件事： ● 新部件的名字 ● 祖先類型 ● 新部件要加入的 Component Palette 頁名 Component Expert 執(zhí)行了手工方式的相同工作： ● 建立新的庫單元 ● 繼承得到新部件對象 ● 注冊部件 但 Component Expert 不能在已有單元中增加部件。 可選擇 File/New... ，在 New Items 對話框中選擇 Component，就打開Component Expert 對話框。 填完 Component Expert 對話框的每一個域后，選擇 OK。 Delphi 建立包括新部件和 Register 過程的庫單元，并自動增加 uses 語句。 你應該立刻保存庫單元，并給予其有意義的名字。 . 測試未安裝的部件 在將新部件安裝在 Component Palette 之前就能測 試部件運行時的動作。這對于調試新部件特別有用，而且還能用同樣的技術測試任意部件，無論該部件是否出現在 Component Palette 上。 從本質上說，你通過模仿用戶將部件放置在窗體中的 Delphi 的動作來測試一個未安裝的部件。 可按下列步驟來測試未安裝的部件 1. 在窗體單元的 uses 語句中加入部件所在單元的名字 2. 在窗體中增加一個對象域來表示部件 這是自己增加部件和 Delphi 增加部件的方法的主要不同點。 你將對象域加在窗體類型聲明底部的 public 部分。 Delphi 則會將對象域 加在底部聲明的上面。 你不能將域加在 Delphi 管理的窗體類型的聲明的上部。在這一部分聲明的對象域將相應在存儲在 DFM 文件中。增加不在窗體中存在的部件名將產生 DFM文件無效的錯誤。 3. 附上窗體的 OnCreate 事件處理過程 4. 在窗體的 OnCreate 處理過程中構造該部件 當調用部件的構造過程時，必須傳遞 Owner 參數（由 Owner 負責析構該部件）一般說來總是將 Self 作為 Owner 的傳入參數。在 OnCreate 中， Self 是指窗體。 5. 給 Component 的 Parent 屬性賦值 設置 Parent 屬性往往是構造部件后要做的第一件事時。 Parent 在形式上包含部件，一般來說 Parent 是窗體或者 GoupBox、 Panel。通常給 Parent 賦與Self，即窗體。在設置部件的其它屬性之前最好先給 Parent 賦值。 6. 按需要給部件的其它屬性賦值 假設你想測試名為 TNewComponent 類型的新部件，庫單元名為 NewTest。窗體庫單元應該是這樣的； unit Unitl。 interface uses SysUtils, Windows, Messages, Classes, Grophics, Controls, Forms, Dialogs, Newtest。 type Tforml = class(TForm) procedure FormCreate(Sender: TObject)。 private { private 申 明 } public { public 申 明 } NewComponent: TNewComponent。 end。 var Forml: TForml。 implementation {$R *.DFM } procedure ( Sender: TObject ) 。 begin NewComponent := ( Self )。 := Self。 := 12。 end。 end. 編寫部件的面向對象技術 部件使用者在 Delphi 環(huán)境中開發(fā)，將遇到在包含數據和方法的對象。他們將在設計階段和運行階段操作對象，而編寫部件將比他 們需要更多的關于對象的知識，因此，你應當熟悉 Delphi 的面向對象的程序設計。 1. 建立部件 部件用戶和部件編寫者最基本的區(qū)別是用戶處理對象的實例，而編寫者創(chuàng)建新的對象類型。這個概念是面向對象程序設計的基礎。例如，用戶創(chuàng)建了一個包含兩個按鈕的窗體，一個標為 OK，另一個標為 Cancel，每個都是 TButton 的實例，通過給 Text、 default 和 Cancel 等屬性賦不同的值，給 OnClick 事件賦予不同的處理過程，用戶產生了兩個不同的實例。 建立新部件一般有兩個理由 ● 改變類型的缺省情況，避 免反復 ● 為部件增加新的功能 目的都是為了建立可重用對象。如果從將來重用的角度預先計劃和設計，能節(jié)省一大堆將來的工作。 在程序設計中，避免不必要的重復是很重要的。如果發(fā)現在代碼中一遍又一遍重寫相同的行，就應當考慮將代碼放在子過程或函數中，或干脆建立一個函數庫。 設計部件也是這個道理，如果總是改變相同的屬性或相同的方法調用，那應創(chuàng)建新部件。
環(huán)評公示相關推薦
鄂ICP備17016276號-1