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

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

可視化編程工具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ù)原型，若方法可能在以后被重載，則應(yīng)在尾部加上 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 的消息傳遞至應(yīng)用程序時便會執(zhí)行 MsgPro過程。

5． 測試構(gòu)件

測試構(gòu)件，確信構(gòu)件是按設(shè)計編譯和起作用的。這是構(gòu)件開發(fā)中非常關(guān)鍵的一步，為測試構(gòu)件，要先寫一個用作測試的應(yīng)用程序，由于不能拉出構(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 具有相似的焦點感應(yīng)能力：當鼠標移到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

Procedure TnewLabel.SetEnterTextColor(Acolor :Tcolor);

Begin

FEnterTextColor:=Acolor;

End;

下一頁

【創(chuàng)建自己的Dephi構(gòu)件】相關(guān)文章：

構(gòu)件化的航天用數(shù)據(jù)傳輸處理系統(tǒng)構(gòu)建05-02

大學英語寫作反饋多模態(tài)體系創(chuàng)建06-12

關(guān)于創(chuàng)建新型教學模式以完善教育體制08-09

校企創(chuàng)建工商管理實驗室05-17

DWDM光網(wǎng)絡(luò)網(wǎng)元管理信息模型的創(chuàng)建過程05-11

關(guān)于創(chuàng)建我國刑事被害人財產(chǎn)權(quán)益保護制度構(gòu)想06-01

從心理學角度分析自己的成長經(jīng)歷06-07

企業(yè)風險導向型環(huán)境管理會計體系創(chuàng)建論文（通用6篇）05-29

對立、融合與超越—論《一間自己的房間》中女性主義的升華05-18