2.2.2 從一個(gè)對(duì)象中繼承數(shù)據(jù)和方法

　　前面的TForm1類(lèi)型是很簡(jiǎn)單的，因?yàn)樗�只含有域Button1和方法Button1Click。但是在這個(gè)窗體上，您可以改變窗體的大小、加入或刪除窗體的最大最小化按鈕，或設(shè)置這個(gè)窗體為MDI界面。對(duì)于一個(gè)只包含一個(gè)域和方法的對(duì)象來(lái)講，您并沒(méi)有看到顯式的支持程序。在窗體上單擊鼠標(biāo)或用Object Inspector的上端的Object Selector選中Form1對(duì)象，按動(dòng)F1查閱它的在線幫助，您會(huì)在Properties和Method中找到它的繼承到的全部屬性和方法。這些是在TForm類(lèi)型中說(shuō)明的，TForm1是TForm的子類(lèi)，直接繼承了它所有的域、方法、屬性和事件。例如窗體的顏色屬性Color就是在TForm中說(shuō)明的。當(dāng)您在工程中加入一個(gè)新窗體時(shí)，就等于加入了一個(gè)基本模型。通過(guò)不斷地在窗體中加入部件，您就自行定義了一個(gè)新的窗體。要自定義任何對(duì)象，您都將從已經(jīng)存在的對(duì)象中繼承域和方法，建立一個(gè)該種對(duì)象的子類(lèi)。例如對(duì)象TForm1就被說(shuō)明為對(duì)象TForm的子類(lèi)，擁有一個(gè)窗體部件的基本屬性或方法。只有當(dāng)您在窗體中加入了部件或編寫(xiě)了事件處理過(guò)程時(shí)，F(xiàn)orm1才成為您自己的類(lèi)型。

　　一個(gè)比較特殊的對(duì)象是從一個(gè)范圍較廣或較一般的對(duì)象中繼承下來(lái)的，它是這個(gè)特別對(duì)象的祖先，這個(gè)對(duì)象則稱(chēng)為祖先的后代。一個(gè)對(duì)象只能有一個(gè)直接的祖先，但是它可以有許多后代。TForm是TForm1類(lèi)型的祖先，所有的窗體對(duì)象都是TForm的后代。

　　用F1查閱窗體的在線幫助時(shí)，您會(huì)發(fā)現(xiàn)TForm被稱(chēng)為component(部件)。這是因?yàn)樗�有的部件都是�?duì)象。

　　在這個(gè)結(jié)構(gòu)中所有的部件都是對(duì)象。部件類(lèi)型TComponent從TObject類(lèi)型中繼承數(shù)據(jù)和程序代碼，并具有額外的可以用作特殊用途的屬性、方法、事件，所以部件可以直接和用戶打交道，記錄它的狀態(tài)并存貯到文件中等等。控制類(lèi)型TControl從TComponent中繼承而來(lái)，又增加了新的功能，如它可以顯示一個(gè)對(duì)象。在上圖中，雖然TCheckBox不是直接由TObject繼承來(lái)的，但是它仍然有任何對(duì)象所擁有的屬性，因?yàn)樵赩CL結(jié)構(gòu)中，TCheckBox終究還是從TObject 中繼承了所有功能的特殊對(duì)象，但它還有些自行定義的獨(dú)到的功能，如可以選擇記錄狀態(tài)等。

　　2.2.3 對(duì)象的范圍

　　2.2.3.1 關(guān)于對(duì)象的范圍

　　一個(gè)對(duì)象的范圍決定了它的數(shù)據(jù)域、屬性值、方法的活動(dòng)范圍和訪問(wèn)范圍。在一個(gè)對(duì)象的說(shuō)明部分說(shuō)明的數(shù)據(jù)域、屬性值、方法都只是在這個(gè)對(duì)象的范圍中，而且只有這個(gè)對(duì)象和它的后代才能擁有它們。雖然這些方法的實(shí)際程序代碼可能是在這個(gè)對(duì)象之外的程序庫(kù)單元中，但這些方法仍然在這個(gè)對(duì)象的范圍內(nèi)，因?yàn)樗鼈兪窃谶@個(gè)對(duì)象的說(shuō)明部分中說(shuō)明的。

　　當(dāng)您在一個(gè)對(duì)象的事件處理過(guò)程中編寫(xiě)程序代碼來(lái)訪問(wèn)這個(gè)對(duì)象的屬性值、方法或域時(shí)，您不需要在這些標(biāo)識(shí)符之前加上這個(gè)對(duì)象變量的名稱(chēng)。例如，如果您在一個(gè)新窗體上加入一個(gè)按鈕和一個(gè)編輯框，并為這個(gè)按鈕編寫(xiě)OnClick事件處理過(guò)程：

　　procedure TForm1.Button1Click(Sender:Tobject);

　　begin

　　Color :=clFuchsia;

　　Edit1.Color :=clLime;

　　end;

　　其中的第一行語(yǔ)句是為整個(gè)窗體Form1著色。您也可以編寫(xiě)如下：

　　Form1.Color :=clFuchsia;

　　但您可以不必加上Form1.，因?yàn)锽utton1Click方法是在TForm1對(duì)象的范圍里。當(dāng)您在一個(gè)對(duì)象的范圍中時(shí)，您可以省略所有這個(gè)對(duì)象中的屬性值、方法、域之前的對(duì)象標(biāo)識(shí)符。但是當(dāng)您編寫(xiě)第二個(gè)語(yǔ)句改變編輯框的底色時(shí)，因?yàn)榇藭r(shí)您想訪問(wèn)的是TEdit1對(duì)象的Color屬性，而不是TForm1類(lèi)型的，所以您需要通過(guò)在屬性前面加上編輯框的名稱(chēng)來(lái)指明Color屬性值的范圍。如果不指明，Delphi會(huì)象第一個(gè)語(yǔ)句一樣，將窗體的顏色變成綠色。因?yàn)镋dit1部件是在窗體中的，它是窗體的一個(gè)數(shù)據(jù)域，所以您同樣不必指明其從屬關(guān)系。來(lái)源：www.top-99.com.cn

　　如果Edit1是在其他窗體中，那么您需要在編輯框之前加上這個(gè)船體對(duì)象的名稱(chēng)了。例如，如果Edit1是在Form2之中，那它是Form2說(shuō)明的一個(gè)數(shù)據(jù)域，并位于Form2的范圍中，那么您需要將第二句改為：

　　Form2.Edit1.Color := clLime;

　　而且需要把Unit2加入U(xiǎn)nit1的uses子句中。

　　一個(gè)對(duì)象的范圍擴(kuò)展到這個(gè)對(duì)象的所有后代。TForm的所有屬性值、方法和事件都在TForm1的范圍中，因?yàn)門(mén)Form1是TForm的后代。您的應(yīng)用程序不能說(shuō)明和祖先的數(shù)據(jù)域重名的類(lèi)型、變量等。如果Delphi顯示了一個(gè)標(biāo)識(shí)符被重復(fù)定義的信息，就有可能是一個(gè)數(shù)據(jù)域和其祖先對(duì)象(例如TForm)的一個(gè)數(shù)據(jù)域有了相同的名稱(chēng)。可以嘗試改變這個(gè)標(biāo)識(shí)符的名稱(chēng)。