創建自己的Dephi構件

可視化編程工具Dephi以強大的功能，眾多的優越特性，深受廣大使用者的喜愛，但如何編寫自己的Dephi構件對許多使用者來說比較陌生，因此，有必要掌握構件的創建方法。一．構件創建的步驟：1．使用NewComponent對話框開始創建選擇File｜New彈出ObjectReposity，雙擊ObjectReposity的Component圖標，顯示NewComponent對話框開始創建。2．為構件增加屬性Dephi中用關鍵字Property聲明屬性字段，屬性有read和write可選從句，其語法格式為：PropertyMyProperty：AtypeReadGetPropertywriteSetProperty；GetPropertySetProperty分別為讀寫屬性過程。3．為構件增加方法在Dephi構件創建中增加新的方法，需在interface區的private、protected以及public中的任一部分描述函數原型，若方法可能在以后被重載，則應在尾部加上virtual或dynamic關鍵字，然后在implementation區定義方法的具體實現代碼。4．為構件增加事件在Dephi中，事件也是使用關鍵字Property來聲明。其語法格式為：PropertyOnNewEvent：AeventTypereadFonNewEventwriteFonNewEvent;聲明事件后往往要將windows的消息傳遞與事件聯系起來才能真正實現事件驅動，因此，我們還要增加一種新的特殊類型的動態的“消息管理”方法，其語法格式為：ProcedureMsgPro(varMsg：Tmessage);messageAmsgIndex;其中，關鍵字Message聲明此為一個消息管理方法。AmsgIndex為一整數常數，作windows消息動態索引，當索引為AmsgIndex的消息傳遞至應用程序時便會執行MsgPro過程。5．測試構件測試構件，確信構件是按設計編譯和起作用的。這是構件開發中非常關鍵的一步，為測試構件，要先寫一個用作測試的應用程序，由于不能拉出構件選項板窗口上的構件，還必須人工創建一個構件。6．將新構件添加到構件選項板當構件正常工作并令人感到滿意后，可添加到構件選項板上，從主菜單選擇Component|InstallComponent顯示一個InstallComponent對話框，該對話框能夠添加構件到程序包。二．構件創建實例下面要開發的新構TnewLabel是從TLabel類繼承來的，它與TLabel具有相似的焦點感應能力：當鼠標移到Tlabel上時，文字顏色發生改變；當鼠標離開時，顏色恢復。它還將增加一個EnterTextColor屬性以及OnMouseLeave和OnMouseLeave事件。屬性EnterTextColor中可以輸入鼠標進入構件時文字的顏色，OnMouseEnter、OnMouseLeave事件中則可輸入程序員自己的代碼來指定鼠標進入和離開構件時的動作。1.選中Component菜單項中的NewComponent選項，在AncestorType框填入Tlabel，在ClassName框中填入TnewLabel，在PalettePage框中填入Samples，在UnitFileName框中填入NewCom.pas，然后單擊按鈕CreateUnit就進入到代碼編輯狀態。2.使用Tools菜單中ImageEditor來創建編輯文件NewCom.dcr，為TnewLabel類建立位圖。3.增加新屬性EnterTextColor，并為讀寫屬性增加私有方法SetEnterTextColor和私有變量FenterTextColor。加入如下的代碼:PrivateFenterTextColor:Tcolor;SetEnterTextColor(Acolor:Tcolor);PublishedPropertyEnterTextColor:TcolorReadFenterTextColorWriteSetEnterTextColor(Acolor);…ImplementationProcedureTnewLabel.SetEnterTextColor(Acolor:Tcolor);BeginFEnterTextColor:=Acolor;End;4.增加保護方法MouseEnter、MouseLeave、CM_MouseEnter和CM_MouseLeave加入如下的代碼:protectedProcedureMouseEnter;virtual;ProcedureMouseLeave;virtual;ProcedureCM_MouseEnter(varmsg:Tmessage);MessageCM_MouseEnter;ProcedureCM_MouseLeave(varmsg:Tmessage);MessageCM_MouseLeave;…ImPlementationProcedureMouseEnter;BeginIfassigned(FonMouseEnter)thenFonMouseEnter(self);End;ProcedureCM_MouseEnter(varmsg:Tmessage);BeginInherited;MouseEnter;End;5.增加事件OnMouseEnter和OnMouseLeave加入如下的代碼:PrivateFonMouseEnter，FonMouseLeave:TnotifyEvent;PublishedOnMouseEnter:TnotifyEventReadFonMouseEnterwriteFonMouseEnter;OnMouseLeave:TnotifyEventReadFonMouseLeaveWriteFonMouseLeave;6.MouseLeaveCM_MouseLeave的實現代碼與MouseEnterCM_MouseEnter的類似。Dephi為所有消息提供缺省處理。在寫消息句柄時應禁止缺省處理，因此在CM_MouseEnter和CM_MouseLeave過程中調用了inherited。重載構造和析構方法的代碼如下：PublicConstructorCreate(Aowner:Tcomponent);override;DestructorDestroy;override;……ImplementationConstructorCreate(Aowner:Tcomponent);BeginInheritedCreate(Aowner);FleaveTextColor:=Font.Color;FenterTextColor:=Font.Color;