创建自己的Dephi构件

创建自己的Dephi构件 创建自己的Dephi构件 信息技术论文 更新：2006-4-8 阅读： 创建自己的Dephi构件

创建自己的Dephi构件

魏涛 黄峰 黄勤超

(合肥市炮兵学院研究生队 2300

3

1)

可视化编程工具Dephi以强大的功能，众多的优越特性，深受广大使用者的喜爱，但如何编写自己的Dephi构件对许多使用者来说比较陌生，因此，有必要掌握构件的创建方法。

一． 构件创建的步骤：

1． 使用New Component 对话框开始创建

选择File｜New弹出Object Reposity，双击Object Reposity的Component图标，显示New Component对话框开始创建。

2． 为构件增加属性

Dephi中用关键字Property声明属性字段，属性有read和 write可选从句，其语法格式为：

Property MyProperty ：Atype

Read GetProperty write SetProperty；

GetProperty SetProperty分别为读写属性过程。

3． 为构件增加方法

在Dephi构件创建中增加新的方法，需在 interface区的 private 、 protected 以 及public中的任一部分描述函数原型，若方法可能在以后被重载，则应在尾部加上 virtual 或dynamic关键字，然后在 implementation区定义方法的具体实现代码。

4． 为构件增加事件

在Dephi中，事件也是使用关键字Property来声明。其语法格式为：

Property OnNewEvent ：Aevent Type

read FonNewEvent write FonNewEvent;

声明事件后往往要将windows的消息传递与事件联系起来才能真正实现事件驱动，因此，我们还要增加一种新的特殊类型的动态的“消息管理”方法，其语法格式为：

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

其中，关键字Message 声明此为一个消息管理方法。 AmsgIndex 为一整数常数，作 windows 消息动态索引，当索引为 AmsgIndex 的消息传递至应用程序时便会执行 MsgPro过程。

5． 测试构件

测试构件，确信构件是按设计编译和起作用的。这是构件开发中非常关键的一步，为测试构件，要先写一个用作测试的应用程序，由于不能拉出构件选项板窗口上的构件，还必须人工创建一个构件。

6． 将新构件添加到构件选项板

当构件正常工作并令人感到满意后，可添加到构件选项板上，从主菜单选择Component | Install Component显示一个Install Component 对话框，该对话框能够添加构件到程序包。

二． 构件创建实例

下面要开发的新构TnewLabel 是从TLabel 类继承来的，它与 TLabel 具有相似的焦点感应能力：当鼠标移到Tlabel 上时，文字颜色发生改变；当鼠标离开时，颜色恢复。它还将增加一个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就进入到代码编辑状态。

2. 使用 Tools菜单中Image Editor来创建编辑文件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;

4. 增加保护方法MouseEnter、MouseLeave、CM_MouseEnter和 CM_MouseLeave

加入如下的代码:

protected

Procedure MouseEnter; virtual; Procedure MouseLeave; virtual;

Procedure CM_MouseEnter(var msg : Tmessage);

Message CM_MouseEnter;

Procedure CM_MouseLeave(var msg : Tmessage);

Message CM_MouseLeave;

…

ImPlementation

Procedure MouseEnter;

Begin

If assigned(FonMouseEnter) then

FonMouseEnter(self);

End;

Procedure CM_MouseEnter(var msg :Tmessage);

Begin

Inherited;

MouseEnter;

End;

5. 增加事件OnMouseEnter 和 OnMouseLeave

加入如下的代码:

Private

FonMouseEnter,FonMouseLeave :TnotifyEvent;

Published

OnMouseEnter : TnotifyEvent

Read FonMouseEnter write FonMouseEnter;

OnMouseLeave : TnotifyEvent

Read FonMouseLeave Write FonMouseLeave;

6. MouseLeave CM_MouseLeave的实现代码与MouseEnter CM_MouseEnter的类似 。Dephi 为所有消息提供缺省处理。在写消息句柄时应 禁止缺省处理，因此在CM_MouseEnter和 CM_MouseLeave过程中调用了 inherited。

重载构造和析构方法的代码如下：

Public Constructor Create(Aowner :Tcomponent);override;

Destructor Destroy;override;

……

Implementation

Constructor Create(Aowner :Tcomponent);

Begin

Inherited Create(Aowner);

F