第二十三章元件的制作.PPT

第二十三章 元件的製作 23-1 類別轉為元件 23-2 繼承可視元件 23-3 複合式元件 Delphi所提供的元件，背後都存在著相對應的類別程式，本書已在第九章介紹類別的製作。 本章則要逐步引領讀者完成類別的元件化，並安裝在元件盤上供人點選。 本章將以三種方式循序漸進的介紹元件製作，分別是23-1節類別轉為元件，23-2節的改良單一元件的元件及23-3節的改良多個元件的元件。研習本章之前，請讀者先複習第九章的類別與物件，第八章結構型態的動態物件製作方式及第十四章的專案。 23-1 類別轉為元件 於範例9-2c中，我們已完成TPass類別的製作，本節則要介紹將此類別轉為元件，並安裝在元件盤上。以下將以四個步驟完成類別的元件化，分別是程式的修改、元件的測試、製作元件圖項以及安裝新元件。 程式的修改本例將9-2c的類別程式修改如下 unit Pass; Interface uses Windows, Messages, SysUtils, Classes, Controls, StdCtrls; //單元 Pass 要獨立存在，請新增此 uses type TPass = class (TComponent) //TPass 類別名稱 //非可見元件應繼承自 TComponent private Fa:integer; Fb:String; public procedure dispose(); procedure setData(value:integer); function getData():integer; procedure setResult(value :String); function getResult() :String; published //bublished 的封裝等級與 public 相同 //，但屬性值可出現物件檢視視窗 property Data :integer read getData write setData ; property Result:String read getResult write setResult; end; //新增 Register procedure Register; Implementation //新增 Register 的實作 procedure Register; begin RegisterComponents(Samples, [TPass]); //Samples 元件欲放置的標籤名稱 //TPass 類別名稱 end; procedure TPass.dispose(); begin Fb:=不及格; if (Fa=60) then Fb:=及格; end; procedure TPass.setData(value:integer); begin if Fa value then Fa:= value; end; function Tpass.getData() :integer; begin Result:=Fa; end ; procedure TPass.setResult(value:String); begin if Fb value then Fb:= value; end; function TPass.getResult():String; begin Result:=Fb; end; end. TComponent 範例9-2c的類別Tpass是繼承自類別的始祖TObject，但依照Delphi的規定，若要將類別轉為元件，則此類別應繼承自TComponent。 範例 23-1a 根據以上說明，修改TPass類別，並測試結果。 製作元件圖項 元件盤上的每一元件都有各自的圖項，自製元件亦不例外。Delphi所付的Image Edit正是製作元件圖項的工具，此圖項的檔名應同類別名稱，副檔名是*.dcr，若未製作元件資源檔則系統將會以預設的圖項顯示。 以下範例示範本例所需的Pass.dcr。 範例 23-1b 示範元件圖項的製作。 安裝新元件 當您已完成類別程式的撰寫、測試及圖項的製作，緊接的工作就是進行元件的安裝，使得往後得以在元件盤上直接使用點選的方式，樣例您已完成的類別。以下範例將介紹元件的安裝步驟。 範例 23-1c 示範元件的安裝。 使用新元件 自訂元件的使用與內建元件相同，請看以下範例說明。 範例