創(chuàng)建自己的Dephi構件

時間：2024-06-12 19:00:10 計算機網絡畢業(yè)論文我要投稿

相關推薦

可視化編程工具Dephi以強大的功能，眾多的優(yōu)越特性，深受廣大使用者的喜愛，但如何編寫自己的Dephi構件對許多使用者來說比較陌生，因此，有必要掌握構件的創(chuàng)建方法。

一．構件創(chuàng)建的步驟：

1．使用New Component 對話框開始創(chuàng)建

選擇File｜New彈出Object Reposity，雙擊Object Reposity的Component圖標，顯示New Component對話框開始創(chuàng)建。

2．為構件增加屬性

Dephi中用關鍵字Property聲明屬性字段，屬性有read和 write可選從句，其語法格式為：

Property MyProperty ：Atype

Read GetProperty write SetProperty；

GetProperty SetProperty分別為讀寫屬性過程。

3．為構件增加方法

在Dephi構件創(chuàng)建中增加新的方法，需在 interface區(qū)的 private 、 protected 以及public中的任一部分描述函數(shù)原型，若方法可能在以后被重載，則應在尾部加上 virtual 或dynamic關鍵字，然后在 implementation區(qū)定義方法的具體實現(xiàn)代碼。

4．為構件增加事件

在Dephi中，事件也是使用關鍵字Property來聲明。其語法格式為：

Property OnNewEvent ：Aevent Type

read FonNewEvent write FonNewEvent;

聲明事件后往往要將windows的消息傳遞與事件聯(lián)系起來才能真正實現(xiàn)事件驅動，因此，我們還要增加一種新的特殊類型的動態(tài)的“消息管理”方法，其語法格式為：

Procedure MsgPro(var Msg ：Tmessage) ;message AmsgIndex;

其中，關鍵字Message 聲明此為一個消息管理方法。 AmsgIndex 為一整數(shù)常數(shù)，作 windows 消息動態(tài)索引，當索引為 AmsgIndex 的消息傳遞至應用程序時便會執(zhí)行 MsgPro過程。

5．測試構件

測試構件，確信構件是按設計編譯和起作用的。這是構件開發(fā)中非常關鍵的一步，為測試構件，要先寫一個用作測試的應用程序，由于不能拉出構件選項板窗口上的構件，還必須人工創(chuàng)建一個構件。

6．將新構件添加到構件選項板

當構件正常工作并令人感到滿意后，可添加到構件選項板上，從主菜單選擇Component | Install Component顯示一個Install Component 對話框，該對話框能夠添加構件到程序包。

二．構件創(chuàng)建實例

下面要開發(fā)的新構TnewLabel 是從TLabel 類繼承來的，它與 TLabel 具有相似的焦點感應能力：當鼠標移到Tlabel 上時，文字顏色發(fā)生改變；當鼠標離開時，顏色恢復。它還將增加一個EnterTextColor屬性以及 OnMouseLeave和OnMouseLeave事件。屬性 EnterTextColor中可以輸入鼠標進入構件時文字的顏色， OnMouseEnter、 OnMouseLeave事件中則可輸入程序員自己的代碼來指定鼠標進入和離開構件時的動作。

1. 選中Component菜單項中的 New Component選項，在 Ancestor Type 框填入Tlabel，在 Class Name框中填入 TnewLabel ，在 Palette Page框中填入 Samples，在 Unit File Name 框中填入 NewCom.pas ，然后單擊按鈕 Create Unit就進入到代碼編輯狀態(tài)。

2. 使用 Tools菜單中Image Editor來創(chuàng)建編輯文件NewCom.dcr，為 TnewLabel類建立位圖。

3. 增加新屬性EnterTextColor ，并為讀寫屬性增加私有方法 SetEnterTextColor和私有變

量 FenterTextColor。

加入如下的代碼:

Private

FenterTextColor : Tcolor;

SetEnterTextColor(Acolor :Tcolor);

Published

Property EnterTextColor : Tcolor

Read FenterTextColor Write SetEnterTextColor(Acolor);

…

Implementation