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

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

相關(guān)推薦

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

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

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

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

2．為構(gòu)件增加屬性

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

Property MyProperty ：Atype

Read GetProperty write SetProperty；

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

3．為構(gòu)件增加方法

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

4．為構(gòu)件增加事件

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

Property OnNewEvent ：Aevent Type

read FonNewEvent write FonNewEvent;

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

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

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

5．測試構(gòu)件

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

6．將新構(gòu)件添加到構(gòu)件選項板

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

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

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

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