delphi自定義部件開(kāi)發(fā)一(編輯修改稿)
2024-09-26 10:00 本頁(yè)面
【文章內(nèi)容簡(jiǎn)介】 程 RegisterComponents，過(guò)程 RegisterComponents 帶兩個(gè)參數(shù)：Component Palette 的頁(yè)名和部件類(lèi)型集。例如，注冊(cè)名為 TNewComponent的部件，并將其置于 Component Palette 的 Samples 頁(yè)，在程序中使用下列過(guò)程： procedure Register。 begin RegisterComponents(39。Samples39。, [TNewComponent])。 end。 一旦注冊(cè)完畢， Delphi 自動(dòng)將部件圖標(biāo)顯示在 Component Palette 上。 2. 使用 Component Expert（部件專(zhuān)家） 你能使用 Component Expert 創(chuàng)建新部件。使用 Component Expert 簡(jiǎn)化了創(chuàng)建新部件最初階段的工作，因?yàn)槟阒恍杳枋鋈拢? ● 新部件的名字 ● 祖先類(lèi)型 ● 新部件要加入的 Component Palette 頁(yè)名 Component Expert 執(zhí)行了手工方式的相同工作： ● 建立新的庫(kù)單元 ● 繼承得到新部件對(duì)象 ● 注冊(cè)部件 但 Component Expert 不能在已有單元中增加部件。 可選擇 File/New... ，在 New Items 對(duì)話框中選擇 Component，就打開(kāi)Component Expert 對(duì)話框。 填完 Component Expert 對(duì)話框的每一個(gè)域后，選擇 OK。 Delphi 建立包括新部件和 Register 過(guò)程的庫(kù)單元，并自動(dòng)增加 uses 語(yǔ)句。 你應(yīng)該立刻保存庫(kù)單元，并給予其有意義的名字。 . 測(cè)試未安裝的部件 在將新部件安裝在 Component Palette 之前就能測(cè) 試部件運(yùn)行時(shí)的動(dòng)作。這對(duì)于調(diào)試新部件特別有用，而且還能用同樣的技術(shù)測(cè)試任意部件，無(wú)論該部件是否出現(xiàn)在 Component Palette 上。 從本質(zhì)上說(shuō)，你通過(guò)模仿用戶(hù)將部件放置在窗體中的 Delphi 的動(dòng)作來(lái)測(cè)試一個(gè)未安裝的部件。 可按下列步驟來(lái)測(cè)試未安裝的部件 1. 在窗體單元的 uses 語(yǔ)句中加入部件所在單元的名字 2. 在窗體中增加一個(gè)對(duì)象域來(lái)表示部件 這是自己增加部件和 Delphi 增加部件的方法的主要不同點(diǎn)。 你將對(duì)象域加在窗體類(lèi)型聲明底部的 public 部分。 Delphi 則會(huì)將對(duì)象域 加在底部聲明的上面。 你不能將域加在 Delphi 管理的窗體類(lèi)型的聲明的上部。在這一部分聲明的對(duì)象域?qū)⑾鄳?yīng)在存儲(chǔ)在 DFM 文件中。增加不在窗體中存在的部件名將產(chǎn)生 DFM文件無(wú)效的錯(cuò)誤。 3. 附上窗體的 OnCreate 事件處理過(guò)程 4. 在窗體的 OnCreate 處理過(guò)程中構(gòu)造該部件 當(dāng)調(diào)用部件的構(gòu)造過(guò)程時(shí)，必須傳遞 Owner 參數(shù)（由 Owner 負(fù)責(zé)析構(gòu)該部件）一般說(shuō)來(lái)總是將 Self 作為 Owner 的傳入?yún)?shù)。在 OnCreate 中， Self 是指窗體。 5. 給 Component 的 Parent 屬性賦值 設(shè)置 Parent 屬性往往是構(gòu)造部件后要做的第一件事時(shí)。 Parent 在形式上包含部件，一般來(lái)說(shuō) Parent 是窗體或者 GoupBox、 Panel。通常給 Parent 賦與Self，即窗體。在設(shè)置部件的其它屬性之前最好先給 Parent 賦值。 6. 按需要給部件的其它屬性賦值 假設(shè)你想測(cè)試名為 TNewComponent 類(lèi)型的新部件，庫(kù)單元名為 NewTest。窗體庫(kù)單元應(yīng)該是這樣的； 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. 編寫(xiě)部件的面向?qū)ο蠹夹g(shù) 部件使用者在 Delphi 環(huán)境中開(kāi)發(fā)，將遇到在包含數(shù)據(jù)和方法的對(duì)象。他們將在設(shè)計(jì)階段和運(yùn)行階段操作對(duì)象，而編寫(xiě)部件將比他 們需要更多的關(guān)于對(duì)象的知識(shí)，因此，你應(yīng)當(dāng)熟悉 Delphi 的面向?qū)ο蟮某绦蛟O(shè)計(jì)。 1. 建立部件 部件用戶(hù)和部件編寫(xiě)者最基本的區(qū)別是用戶(hù)處理對(duì)象的實(shí)例，而編寫(xiě)者創(chuàng)建新的對(duì)象類(lèi)型。這個(gè)概念是面向?qū)ο蟪绦蛟O(shè)計(jì)的基礎(chǔ)。例如，用戶(hù)創(chuàng)建了一個(gè)包含兩個(gè)按鈕的窗體，一個(gè)標(biāo)為 OK，另一個(gè)標(biāo)為 Cancel，每個(gè)都是 TButton 的實(shí)例，通過(guò)給 Text、 default 和 Cancel 等屬性賦不同的值，給 OnClick 事件賦予不同的處理過(guò)程，用戶(hù)產(chǎn)生了兩個(gè)不同的實(shí)例。 建立新部件一般有兩個(gè)理由 ● 改變類(lèi)型的缺省情況，避 免反復(fù) ● 為部件增加新的功能 目的都是為了建立可重用對(duì)象。如果從將來(lái)重用的角度預(yù)先計(jì)劃和設(shè)計(jì)，能節(jié)省一大堆將來(lái)的工作。 在程序設(shè)計(jì)中，避免不必要的重復(fù)是很重要的。如果發(fā)現(xiàn)在代碼中一遍又一遍重寫(xiě)相同的行，就應(yīng)當(dāng)考慮將代碼放在子過(guò)程或函數(shù)中，或干脆建立一個(gè)函數(shù)庫(kù)。 設(shè)計(jì)部件也是這個(gè)道理，如果總是改變相同的屬性或相同的方法調(diào)用，那應(yīng)創(chuàng)建新部件。
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1