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

一．构件创建的步骤:

1．使用NewComponent对话框开始创建

选择File｜New弹论文网出ObjectReposity,双击ObjectReposity的Component图标,显示NewComponent对话框开始创建。

2．为构件增加属性

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

PropertyMyProperty:Atype

ReadGetPropertywriteSetProperty;

GetPropertySetProperty分别为读写属性过程。

3．为构件增加方法

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

4．为构件增加事件

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

PropertyOnNewEvent:AeventType

readFonNewEventwriteFonNewEvent;

声明事件后往往要将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。

加入如下的代码:

Private

FenterTextColor:Tcolor;

SetEnterTextColor(Acolor:Tcolor);

Published

PropertyEnterTextColor:Tcolor

ReadFenterTextColorWriteSetEnterTextColor(Acolor);

…

Implementation

ProcedureTnewLabel。SetEnterTextColor(Acolor:Tcolor);

Begin

FEnterTextColor:=Acolor;

End;

[1][2]下一页