2011計算機等考Delphi：Delphi自定義部件開(kāi)發(fā)

　　19.2.1.5 編寫(xiě)部件的面向對象技術(shù)

　　部件使用者在Delphi環(huán)境中開(kāi)發(fā)，將遇到在包含數據和方法的對象。他們將在設計階段和運行階段操作對象，而編寫(xiě)部件將比他們需要更多的關(guān)于對象的知識，因此，你應當熟悉Delphi的面向對象的程序設計。

　　1. 建立部件

　　部件用戶(hù)和部件編寫(xiě)者最基本的區別是用戶(hù)處理對象的實(shí)例，而編寫(xiě)者創(chuàng )建新的對象類(lèi)型。這個(gè)概念是面向對象程序設計的基礎。例如，用戶(hù)創(chuàng )建了一個(gè)包含兩個(gè)按鈕的窗體，一個(gè)標為OK，另一個(gè)標為Cancel，每個(gè)都是TButton的實(shí)例，通過(guò)給Text、default和Cancel等屬性賦不同的值，給OnClick事件賦予不同的處理過(guò)程，用戶(hù)產(chǎn)生了兩個(gè)不同的實(shí)例。

　　建立新部件一般有兩個(gè)理由

　　● 改變類(lèi)型的缺省情況，避免反復

　　● 為部件增加新的功能

　　目的都是為了建立可重用對象。如果從將來(lái)重用的角度預先計劃和設計，能節省一大堆將來(lái)的工作。

　　在程序設計中，避免不必要的重復是很重要的。如果發(fā)現在代碼中一遍又一遍重寫(xiě)相同的行，就應當考慮將代碼放在子過(guò)程或函數中，或干脆建立一個(gè)函數庫。

　　設計部件也是這個(gè)道理，如果總是改變相同的屬性或相同的方法調用，那應創(chuàng )建新部件。

　　創(chuàng )建新部件的另一個(gè)原因是想給已有的部件增加新的功能。你可以從已有部件直接繼承(如ListBox)或從抽象對象類(lèi)型繼承(如TComponent，TControl)。你雖然能為部件增加新功能，但不能將原有部件的屬性移走，如果要這樣做的話(huà)，就從該父對象的祖先對象繼承。

　　2. 控制部件的訪(fǎng)向

　　Object Pascal語(yǔ)言為對象的各部分提供了四個(gè)級別的訪(fǎng)問(wèn)控制。訪(fǎng)問(wèn)控制讓你定義什么代碼能訪(fǎng)問(wèn)對象的哪一部分。通過(guò)描述訪(fǎng)問(wèn)級別，定義了部件的接口。如果合理安排接口，將提高部件的可用性和重用性。

　　除非特地描述，否則加在對象里的域、方法和屬性的控制級別是published，這意味著(zhù)任何代碼可以訪(fǎng)問(wèn)整個(gè)對象。

　　下表列出各保護級別：

　　表19.2 對象定義中的保護級別

　　━━━━━━━━━━━━━━━━━━━

　　保護級　用處

　　───────────────────

　　private 隱藏實(shí)現細節

　　protected　定義開(kāi)發(fā)者接口

　　public 定義運行時(shí)接口

　　published 定義設計時(shí)接口

　　━━━━━━━━━━━━━━━━━━━

　　所有的保護級都在單元級起作用。如果對象的某一部分在庫單元中的一處可訪(fǎng)向，則在該庫單元任意處都可訪(fǎng)向。

　�、� 隱藏實(shí)現細節

　　如果對象的某部分被聲明為private，將使其它庫單元的代碼無(wú)法訪(fǎng)問(wèn)該部分，但包含聲明的庫單元中的代碼可以訪(fǎng)問(wèn)，就好象訪(fǎng)問(wèn)public一樣，這是和C++不同的。

　　對象類(lèi)型的private部分對于隱藏詳細實(shí)現是很重要的。既然對象的用戶(hù)不能訪(fǎng)問(wèn)，private部分，你就能改變對象的實(shí)現而不影響用戶(hù)代碼。

　　下面是一個(gè)演示防止用戶(hù)訪(fǎng)問(wèn)private域的例子：

　　unit HideInfo;

　　interface

　　uses SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, Forms,

　　Dialogs;

　　type

　　TSecretForm = class(TForm) { 聲明新的窗體窗口 }

　　procedure FormCreate(Sender: TObject);

　　private { declare private part }

　　FSecretCode: Integer; { 聲明private域 }

　　end;

　　var

　　SecretForm: TSecretForm;

　　implementation

　　procedure TSecretForm.FormCreate(Sender: TObject);

　　begin

　　FSecretCode := 42;

　　end;

　　end.

　　unit TestHide; { 這是主窗體庫單元 }

　　interface

　　uses SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, Forms,

　　Dialogs, HideInfo; { 使用帶TSecretForm聲明的庫單元 }

　　type

　　TTestForm = class(TForm)

　　procedure FormCreate(Sender: TObject);

　　end;

　　var

　　TestForm: TTestForm;

　　implementation

　　procedure TTestForm.FormCreate(Sender: TObject);

　　begin

　　SecretForm.FSecretCode := 13; {編譯過(guò)程將以"Field identifier expected"錯誤停止}

　　end;

　　end.

　�、� 定義開(kāi)發(fā)者接口

　　將對象某部分聲明為protected，可使在包含該部件聲明的庫單元之外的代碼無(wú)法訪(fǎng)問(wèn)，就象private部分。protected部分的不同之處是，某對象繼承該對象，則包含新對象的庫單元可以訪(fǎng)問(wèn)protected部分，你能使用protected聲明定義開(kāi)發(fā)者的接口。也就是說(shuō)。對象的用戶(hù)不能訪(fǎng)向protected部分，但開(kāi)發(fā)者通過(guò)繼承就可能做到，這意味著(zhù)你能通過(guò)protected部分的可訪(fǎng)問(wèn)性使部件編寫(xiě)者改變對象工作方式，而又不使用戶(hù)見(jiàn)到這些細節。

　�、� 定義運行時(shí)接口

　　將對象的某一部分定義為public可使任何代碼訪(fǎng)問(wèn)該部分。如果你沒(méi)有對域方法或屬性加以private、protected、public的訪(fǎng)問(wèn)控制描述。那么該部分就是published。

　　因為對象的public部分可在運行時(shí)為任何代碼訪(fǎng)問(wèn)，因此對象的public部分被稱(chēng)為運行接口。運行時(shí)接口對那些在設計時(shí)沒(méi)有意義的項目，如依靠運行時(shí)信息的和只讀的屬性，是很有用的。那些設計用來(lái)供用戶(hù)調用的方法也應放在運行時(shí)接口中。

　　下例是一個(gè)顯示兩個(gè)定義在運行時(shí)接口的只讀屬性的例子：

　　type

　　TSampleComponent = class(TComponent)

　　private

　　FTempCelsius: Integer; { 具體實(shí)現是private }

　　function GetTempFahrenheit: Integer;

　　public

　　property TempCelsius: Integer read FTempCelsius; { 屬性是public }

　　property TempFahrenheit: Integer read GetTempFahrenheit;

　　end;

　　function GetTempFahrenheit: Integer;

　　begin

　　Result := FTempCelsius * 9 div 5 + 32;

　　end;

　　既然用戶(hù)在設計時(shí)不能改變public部分的屬性的值，那么該類(lèi)屬性就不能出現在Object Inspector窗口中。

　�、� 定義設計時(shí)接口

　　將對象的某部分聲明為published，該部分也即為public且產(chǎn)生運行時(shí)類(lèi)型信息。但只有published部分定義的屬性可顯示在Object Inspector窗口中。對象的published部分定義了對象的設計時(shí)接口。設計時(shí)接口包含了用戶(hù)想在設計時(shí)定制的一切特征。

　　下面是一個(gè)published屬性的例子，因為它是published，因此可以出現在Object Inspector窗口：

　　TSampleComponent = class(TComponent)

　　private

　　FTemperature: Integer; { 具體實(shí)現是 private }

　　published

　　property Temperature: Integer read FTemperature write FTemperature; { 可寫(xiě)的 }

　　end;

　　3. 派送方法

　　派送(Dispatch)這個(gè)概念是用來(lái)描述當調用方法時(shí)，你的應用程序怎樣決定執行什么樣的代碼，當你編寫(xiě)調用對象的代碼時(shí)，看上去與任何其它過(guò)程或函數調用沒(méi)什么不同，但對象有三種不同的派送方法的方式。

　　這三種派送方法的類(lèi)型是：

　　● 靜態(tài)的

　　● 虛擬的

　　● 動(dòng)態(tài)的

　　虛方法和動(dòng)態(tài)方法的工作方式相同，但實(shí)現不同。兩者都與靜態(tài)方法相當不同。理解各種不同的派送方法對創(chuàng )建部件是很有用的。