face="Arial" size="3">protected</font><font face="宋體" lang="ZH-CN" size="3">部分，你能使用</font><font
face="Arial" size="3">protected</font><font face="宋體" lang="ZH-CN" size="3">聲明定義開發(fā)者的接口。也就是說。對象的用戶不能訪向</font><font
face="Arial" size="3">protected</font><font face="宋體" lang="ZH-CN" size="3">部分，但開發(fā)者通過繼承就可能做到，這意味著你能通過</font><font
face="Arial" size="3">protected</font><font face="宋體" lang="ZH-CN" size="3">部分的可訪問性使部件編寫者改變對象工作方式，而又不使用戶見到這些細(xì)節(jié)。</p>
<p>　?、?lt;/font><font face="Arial" size="3"> </font><font face="宋體" lang="ZH-CN"
size="3">定義運(yùn)行時接口</p>
<p>　　將對象的某一部分定義為</font><font face="Arial" size="3">public</font><font
face="宋體" lang="ZH-CN" size="3">可使任何代碼訪問該部分。如果你沒有對域方法或?qū)傩约右?lt;/font><font
face="Arial" size="3">private</font><font face="宋體" lang="ZH-CN" size="3">、</font><font
face="Arial" size="3">protected</font><font face="宋體" lang="ZH-CN" size="3">、</font><font
face="Arial" size="3">public</font><font face="宋體" lang="ZH-CN" size="3">的訪問控制描述。那么該部分就是</font><font
face="Arial" size="3">published</font><font face="宋體" lang="ZH-CN" size="3">。</p>
<p>　　因?yàn)閷ο蟮?lt;/font><font face="Arial" size="3">public</font><font
face="宋體" lang="ZH-CN" size="3">部分可在運(yùn)行時為任何代碼訪問，因此對象的</font><font
face="Arial" size="3">public</font><font face="宋體" lang="ZH-CN" size="3">部分被稱為運(yùn)行接口。運(yùn)行時接口對那些在設(shè)計時沒有意義的項(xiàng)目，如依靠運(yùn)行時信息的和只讀的屬性，是很有用的。那些設(shè)計用來供用戶調(diào)用的方法也應(yīng)放在運(yùn)行時接口中。</p>
<p>　　下例是一個顯示兩個定義在運(yùn)行時接口的只讀屬性的例子：</p>
<p>　</font><font face="Arial" size="3"></p>
<p>type </p>
<p>TSampleComponent = class(TComponent)</p>
<p>private</p>
<p>FTempCelsius: Integer; { </font><font face="宋體" lang="ZH-CN" size="3">具體實(shí)現(xiàn)是</font><font
face="Arial" size="3">private } </p>
<p>function GetTempFahrenheit: Integer; </p>
<p>public</p>
<p>property TempCelsius: Integer read FTempCelsius; { </font><font face="宋體"
lang="ZH-CN" size="3">屬性是</font><font face="Arial" size="3">public }</p>
<p>property TempFahrenheit: Integer read GetTempFahrenheit; </p>
<p>end; </p>
<p>　</p>
<p>function GetTempFahrenheit: Integer; </p>
<p>begin </p>
<p>Result := FTempCelsius * 9 div 5 + 32; </p>
<p>end;</p>
<p>　</font><font face="宋體" lang="ZH-CN" size="3"></p>
<p>　　既然用戶在設(shè)計時不能改變</font><font face="Arial" size="3">public</font><font
face="宋體" lang="ZH-CN" size="3">部分的屬性的值，那么該類屬性就不能出現(xiàn)在</font><font
face="Arial" size="3">Object Inspector</font><font face="宋體" lang="ZH-CN" size="3">窗口中。</p>
<p>　?、?lt;/font><font face="Arial" size="3"> </font><font face="宋體" lang="ZH-CN"
size="3">定義設(shè)計時接口</p>
<p>　　將對象的某部分聲明為</font><font face="Arial" size="3">published</font><font
face="宋體" lang="ZH-CN" size="3">，該部分也即為</font><font face="Arial"
size="3">public</font><font face="宋體" lang="ZH-CN" size="3">且產(chǎn)生運(yùn)行時類型信息。但只有</font><font
face="Arial" size="3">published</font><font face="宋體" lang="ZH-CN" size="3">部分定義的屬性可顯示在</font><font
face="Arial" size="3">Object Inspector</font><font face="宋體" lang="ZH-CN" size="3">窗口中。對象的</font><font
face="Arial" size="3">published</font><font face="宋體" lang="ZH-CN" size="3">部分定義了對象的設(shè)計時接口。設(shè)計時接口包含了用戶想在設(shè)計時定制的一切特征。</p>
<p>　　下面是一個</font><font face="Arial" size="3">published</font><font
face="宋體" lang="ZH-CN" size="3">屬性的例子，因?yàn)樗?lt;/font><font
face="Arial" size="3">published</font><font face="宋體" lang="ZH-CN" size="3">，因此可以出現(xiàn)在</font><font
face="Arial" size="3">Object Inspector</font><font face="宋體" lang="ZH-CN" size="3">窗口：</p>
<p>　</font><font face="Arial" size="3"></p>
<p>TSampleComponent = class(TComponent) </p>
<p>private </p>
<p>FTemperature: Integer; { </font><font face="宋體" lang="ZH-CN" size="3">具體實(shí)現(xiàn)是</font><font
face="Arial" size="3"> private }</p>
<p>published</p>
<p>property Temperature: Integer read FTemperature write FTemperature; { </font><font
face="宋體" lang="ZH-CN" size="3">可寫的</font><font face="Arial" size="3"> } </p>
<p>end;</p>
<p>　</font><font face="宋體" lang="ZH-CN" size="3"></p>
<p>　　</font><font face="Arial" size="3">3. </font><font face="宋體" lang="ZH-CN"
size="3">派送方法</p>
<p>　　派送</font><font face="Arial" size="3">(Dispatch)</font><font face="宋體"
lang="ZH-CN" size="3">這個概念是用來描述當(dāng)調(diào)用方法時，你的應(yīng)用程序怎樣決定執(zhí)行什么樣的代碼，當(dāng)你編寫調(diào)用對象的代碼時，看上去與任何其它過程或函數(shù)調(diào)用沒什么不同，但對象有三種不同的派送方法的方式。</p>
<p>　　這三種派送方法的類型是：</font><font face="Arial" size="3"></p>
<p></font><font face="宋體" lang="ZH-CN" size="3">　</font><font face="Arial" size="3">
</font><font face="宋體" lang="ZH-CN" size="3">●</font><font face="Arial" size="3"> </font><font
face="宋體" lang="ZH-CN" size="3">靜態(tài)的</p>
<p>　</font><font face="Arial" size="3"> </font><font face="宋體" lang="ZH-CN" size="3">●</font><font
face="Arial" size="3"> </font><font face="宋體" lang="ZH-CN" size="3">虛擬的</p>
<p>　</font><font face="Arial" size="3"> </font><font face="宋體" lang="ZH-CN" size="3">●</font><font
face="Arial" size="3"> </font><font face="宋體" lang="ZH-CN" size="3">動態(tài)的</p>
<p>　</p>
<p>　　虛方法和動態(tài)方法的工作方式相同，但實(shí)現(xiàn)不同。兩者都與靜態(tài)方法相當(dāng)不同。理解各種不同的派送方法對創(chuàng)建部件是很有用的。</font><font
face="Arial" size="3"></p>
<p></font><font face="宋體" lang="ZH-CN" size="3">?、?lt;/font><font face="Arial"
size="3"> </font><font face="宋體" lang="ZH-CN" size="3">靜態(tài)方法：</p>
<p>　　如果沒有特殊聲明，所有的對象方法都是靜態(tài)的</font><font
face="Arial" size="3">.</font><font face="宋體" lang="ZH-CN" size="3">。靜態(tài)方法的工作方式正如一般的過程和函數(shù)調(diào)用。在編譯時，編譯器決定方法地址，并與方法聯(lián)接。</p>
<p>　　靜態(tài)方法的基本好處是派送相當(dāng)快。因?yàn)橛删幾g器決定方法的臨時地址，并直接與方法相聯(lián)。虛方法和動態(tài)方法則相反，用間接的方法在運(yùn)行時查找方法的地址，這將花較長的時間。</p>
<p>　　靜態(tài)方法的另一個不同之處是當(dāng)被另一類型繼承時不做任何改變，這就是說如果你聲明了一個包含靜態(tài)方法的對象，然后從該對象繼承新的對象，則該后代對象享有與祖先對象相同的方法地址，因此，不管實(shí)際對象是誰，靜態(tài)方法都完成相同的工作。</p>
<p>　　你不能覆蓋靜態(tài)方法，在后代對象中聲明相同名稱的靜態(tài)方法都將取代祖先對象方法。</p>
<p>　　在下列代碼中，第一個部件聲明了兩靜態(tài)方法，第二個部件，聲明了相同名字的方法取代第一個部件的方法。</p>
<p>　</p>
<p></font><font face="Arial" size="3">type </p>
<p>TFirstComponent = class(TComponent) </p>
<p>procedure Move; </p>
<p>procedure Flash; </p>
<p>end;</p>
<p>　</p>
<p>TSecondComponent = class(TFirstComponent) </p>
<p>procedure Move; { </font><font face="宋體" lang="ZH-CN" size="3">盡管有相同的聲明，但與繼承的方法不同</font><font
face="Arial" size="3"> } </p>
<p>function Flash(HowOften: Integer): Integer; { </font><font face="宋體" lang="ZH-CN"
size="3">同</font><font face="Arial" size="3">Move</font><font face="宋體" lang="ZH-CN"
size="3">方法一樣</font><font face="Arial" size="3"> } </p>
<p>end;</p>
<p>　</font><font face="宋體" lang="ZH-CN" size="3"></p>
<p>　　⑵</font><font face="Arial" size="3"> </font><font face="宋體" lang="ZH-CN"
size="3">虛方法</p>
<p>　　調(diào)用虛方法與調(diào)用任何其它方法一樣，但派送機(jī)制有所不同。虛方法支持在后代對象中重定義方法，但調(diào)用方法完全相同，虛方法的地址不是在編譯時決定，而是在運(yùn)行時才查找方法的地址。</p>
<p>　　為聲明一個新的方法，在方法聲明后增加</font><font face="Arial"
size="3">virtual</font><font face="宋體" lang="ZH-CN" size="3">指令。方法聲明中的</font><font
face="Arial" size="3">virtual</font><font face="宋體" lang="ZH-CN" size="3">指令在對象虛擬方法表（</font><font
face="Arial" size="3">VMT</font><font face="宋體" lang="ZH-CN" size="3">）中創(chuàng)建一個入口，該虛擬方法表保存對象類所有虛有擬方法的地址。</p>
<p>　　當(dāng)你從已有對象獲得新的對象，新對象得到自己的</font><font
face="Arial" size="3">VMT</font><font face="宋體" lang="ZH-CN" size="3">，它包含所有的祖先對象的</font><font
face="Arial" size="3">VMT</font><font face="宋體" lang="ZH-CN" size="3">入口，再增加在新對象中聲明的虛擬方法。后代對象能覆蓋任何繼承的虛擬方法。</p>
<p>　　覆蓋一個方法是擴(kuò)展它，而不是取代它。后代對象可以重定義和重實(shí)現(xiàn)在祖先對象中聲明的任何方法。但無法覆蓋一個靜態(tài)方法。覆蓋一個方法，要在方法聲明的結(jié)尾增加</font><font
face="Arial" size="3">override</font><font face="宋體" lang="ZH-CN" size="3">指令，在下列情況，使用</font><font
face="Arial" size="3">override</font><font face="宋體" lang="ZH-CN" size="3">將產(chǎn)生編譯錯誤：</font><font
face="Arial" size="3"></p>
<p></font><font face="宋體" lang="ZH-CN" size="3">　</font><font face="Arial" size="3">
</font><font face="宋體" lang="ZH-CN" size="3">●</font><font face="Arial" size="3"> </font><font
face="宋體" lang="ZH-CN" size="3">祖先對象中不存在該方法</font><font
face="Arial" size="3"></p>
<p></font><font face="宋體" lang="ZH-CN" size="3">　</font><font face="Arial" size="3">
</font><font face="宋體" lang="ZH-CN" size="3">●</font><font face="Arial" size="3"> </font><font
face="宋體" lang="ZH-CN" size="3">祖先對象中相同方法是靜態(tài)的</p>
<p>　</font><font face="Arial" size="3"> </font><font face="宋體" lang="ZH-CN" size="3">●</font><font
face="Arial" size="3"> </font><font face="宋體" lang="ZH-CN" size="3">聲明與祖先對象的（如名字、參數(shù)）不匹配</p>
<p>　</p>
<p>　　下列代碼演示兩個簡單的部件。第一個部件聲明了三個方法，每一個使用不同的派送方式，第二個部件繼承第一個部件，取代了靜態(tài)方法，覆蓋了虛擬方法和動態(tài)方法。</p>
<p>　</p>
<p></font><font face="Arial" size="3">type </p>
<p>TFirstComponent = class(TCustomControl)</p>
<p>procedure Move; { </font><font face="宋體" lang="ZH-CN" size="3">靜態(tài)方法</font><font
face="Arial" size="3"> } </p>
<p>procedure Flash; virtual; { </font><font face="宋體" lang="ZH-CN" size="3">虛</font><font
face="Arial" size="3"> </font><font face="宋體" lang="ZH-CN" size="3">方</font><font
face="Arial" size="3"> </font><font face="宋體" lang="ZH-CN" size="3">法</font><font
face="Arial" size="3"> } </p>
<p>procedure Beep; dynamic; { </font><font face="宋體" lang="ZH-CN" size="3">動態(tài)虛擬方法</font><font
face="Arial" size="3"> } </p>
<p>end;</p>
<p>　</p>
<p>TSecondComponent = class(TFirstComponent) </p>
<p>procedure Move; { </font><font face="宋體" lang="ZH-CN" size="3">聲明了新的方法</font><font
face="Arial" size="3"> } </p>
<p>procedure Flash; override; { </font><font face="宋體" lang="ZH-CN" size="3">覆蓋繼承的方法</font><font
face="Arial" size="3"> }</p>
<p>procedure Beep; override; { </font><font face="宋體" lang="ZH-CN" size="3">覆蓋繼承的方法</font><font
face="Arial" size="3"> } </p>
<p>end;</p>
<p>　</font><font face="宋體" lang="ZH-CN" size="3"></p>
<p>　?、?lt;/font><font face="Arial" size="3"> </font><font face="宋體" lang="ZH-CN"
size="3">動態(tài)方法</p>
<p>　　動態(tài)方法是稍微不同于虛擬方法的派送機(jī)制。因?yàn)閯討B(tài)方法沒有對象</font><font
face="Arial" size="3">VMT</font><font face="宋體" lang="ZH-CN" size="3">的入口，它們減少了對象消耗的內(nèi)存數(shù)量。派送動態(tài)方法比派送一般的虛擬方法慢。因此，如果方法調(diào)用很頻繁，你最好將其定義為虛方法。</p>
<p>　　定義動態(tài)方法時，在方法聲明后面增加</font><font face="Arial"
size="3">dynamic</font><font face="宋體" lang="ZH-CN" size="3">指令。</p>
<p>　　與對象虛擬方法創(chuàng)建入口不同的