delphi自定義部件開發(fā)一-文庫(kù)吧資料
2024-08-29 10:00本頁(yè)面
【正文】 的可用性和重用性。訪問控制讓你定義什么代碼能訪問對(duì)象的哪一部分。你雖然能為部件增加新功能，但不能將原有部件的屬性移走，如果要這樣做的話，就從該父對(duì)象的祖先對(duì)象繼承。 創(chuàng)建新部件的另一個(gè)原因是想給已有的部件增加新的功能。如果發(fā)現(xiàn)在代碼中一遍又一遍重寫相同的行，就應(yīng)當(dāng)考慮將代碼放在子過程或函數(shù)中，或干脆建立一個(gè)函數(shù)庫(kù)。如果從將來(lái)重用的角度預(yù)先計(jì)劃和設(shè)計(jì)，能節(jié)省一大堆將來(lái)的工作。例如，用戶創(chuàng)建了一個(gè)包含兩個(gè)按鈕的窗體，一個(gè)標(biāo)為 OK，另一個(gè)標(biāo)為 Cancel，每個(gè)都是 TButton 的實(shí)例，通過給 Text、 default 和 Cancel 等屬性賦不同的值，給 OnClick 事件賦予不同的處理過程，用戶產(chǎn)生了兩個(gè)不同的實(shí)例。 1. 建立部件 部件用戶和部件編寫者最基本的區(qū)別是用戶處理對(duì)象的實(shí)例，而編寫者創(chuàng)建新的對(duì)象類型。 end. 編寫部件的面向?qū)ο蠹夹g(shù) 部件使用者在 Delphi 環(huán)境中開發(fā)，將遇到在包含數(shù)據(jù)和方法的對(duì)象。 := 12。 begin NewComponent := ( Self )。 var Forml: TForml。 private { private 申 明 } public { public 申 明 } NewComponent: TNewComponent。 interface uses SysUtils, Windows, Messages, Classes, Grophics, Controls, Forms, Dialogs, Newtest。 6. 按需要給部件的其它屬性賦值 假設(shè)你想測(cè)試名為 TNewComponent 類型的新部件，庫(kù)單元名為 NewTest。通常給 Parent 賦與Self，即窗體。 5. 給 Component 的 Parent 屬性賦值 設(shè)置 Parent 屬性往往是構(gòu)造部件后要做的第一件事時(shí)。 3. 附上窗體的 OnCreate 事件處理過程 4. 在窗體的 OnCreate 處理過程中構(gòu)造該部件 當(dāng)調(diào)用部件的構(gòu)造過程時(shí)，必須傳遞 Owner 參數(shù)（由 Owner 負(fù)責(zé)析構(gòu)該部件）一般說(shuō)來(lái)總是將 Self 作為 Owner 的傳入?yún)?shù)。在這一部分聲明的對(duì)象域?qū)⑾鄳?yīng)在存儲(chǔ)在 DFM 文件中。 Delphi 則會(huì)將對(duì)象域 加在底部聲明的上面。 可按下列步驟來(lái)測(cè)試未安裝的部件 1. 在窗體單元的 uses 語(yǔ)句中加入部件所在單元的名字 2. 在窗體中增加一個(gè)對(duì)象域來(lái)表示部件 這是自己增加部件和 Delphi 增加部件的方法的主要不同點(diǎn)。這對(duì)于調(diào)試新部件特別有用，而且還能用同樣的技術(shù)測(cè)試任意部件，無(wú)論該部件是否出現(xiàn)在 Component Palette 上。 你應(yīng)該立刻保存庫(kù)單元，并給予其有意義的名字。 填完 Component Expert 對(duì)話框的每一個(gè)域后，選擇 OK。使用 Component Expert 簡(jiǎn)化了創(chuàng)建新部件最初階段的工作，因?yàn)槟阒恍杳枋鋈拢? ● 新部件的名字 ● 祖先類型 ● 新部件要加入的 Component Palette 頁(yè)名 Component Expert 執(zhí)行了手工方式的相同工作： ● 建立新的庫(kù)單元 ● 繼承得到新部件對(duì)象 ● 注冊(cè)部件 但 Component Expert 不能在已有單元中增加部件。 一旦注冊(cè)完畢， Delphi 自動(dòng)將部件圖標(biāo)顯示在 Component Palette 上。, [TNewComponent])。 begin RegisterComponents(39。 ② 在庫(kù)單位的 implementation部件編寫 Register過程為每一個(gè)你想注冊(cè)的部件調(diào)用過程 RegisterComponents，過程 RegisterComponents 帶兩個(gè)參數(shù)：Component Palette 的頁(yè)名和部件類型集。 Register 不帶任何參數(shù)，因此聲明很簡(jiǎn)單： procedure Register。 ⑶ 注冊(cè)部件 注冊(cè)部件是為了告訴 Delphi 什么部件被加入部件庫(kù)和加入 Component Palette 的哪一頁(yè)。 現(xiàn)在你能注冊(cè) TNewComponent。 例如，建立一個(gè)最簡(jiǎn)單的從 TComponent 直接繼承非可視的部件，將下列的類型定義加在部件單元的 interface 部分。也可從 TControl、 TGraphicControl等繼承。 ① 為部件創(chuàng)建庫(kù)單元，可選擇 File/New... ，在 New Items 對(duì)話框中選擇 Unit，Delphi 將創(chuàng)建一個(gè)新文件，并在代碼編輯器中打開它 ② 在已有庫(kù)單元中增加部件，只須選擇 File/OPen 為已有庫(kù)單元選擇源代碼。大多數(shù)部件（在邏輯上是一組）也有自己的庫(kù)單元。 手工創(chuàng)建部件需要下列三步： ● 創(chuàng)建新的庫(kù)單元 ● 繼承一個(gè)部件對(duì)象 ● 注冊(cè)部件 ⑴ 創(chuàng)建新的庫(kù)單元 庫(kù)單元是 Object Pascal 代碼的獨(dú)立編譯單位。 1. 手工創(chuàng)建部件 顯然創(chuàng)建部件最容易的方法是使用 Component Expert。安裝完后，你就能將新部件放置在窗體窗口，并可在設(shè)計(jì)階段和運(yùn)行階段進(jìn)行測(cè)試。 非可視部件相當(dāng)少，主要用它們作為非可視程序單元（如數(shù)據(jù)庫(kù)單元）和對(duì)話框的界面。TComponent 定義了部件在 FormDesigner 中所需的基本的屬性和方法。從 TComponent 直接繼承所創(chuàng)建的部件就是非可視化部件。在庫(kù)單元 StdCtrls 中有許多這樣的例子。使用Delphi，你能創(chuàng)建一個(gè)部件包裝在已有窗口類之上。這就稱為從窗口類繼承。當(dāng)你用傳統(tǒng)的 Windows 編 程方法創(chuàng)建一種新的控制，你要定義一個(gè)新的窗口類，并在Windows 中注冊(cè)。 4. 繼承窗口控制 Windows 中有一種稱之為窗
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1