创建自己的dephi构件

《创建自己的dephi构件》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、创建自己的Dephi构件可视化编程工具Dephi以强大的功能，众多的优越特性，深受广大使用者的喜爱，但如何编写自己的Dephi构件对许多使用者来说比较陌生，因此，有必要掌握构件的创建方法。一．构件创建的步骤：1．使用Ne0cm0pt">选择File｜Ne0cm0pt">2．为构件增加属性Dephi中用关键字Property声明属性字段，属性有read和0cm0pt">PropertyMyProperty：AtypeReadGetProperty0cm0pt">GetPropertySetProperty分别为读写属性过程。3．为

2、构件增加方法在Dephi构件创建中增加新的方法，需在interface区的private、protected以及public中的任一部分描述函数原型，若方法可能在以后被重载，则应在尾部加上virtual或dynamic关键字，然后在implementation区定义方法的具体实现代码。4．为构件增加事件在Dephi中，事件也是使用关键字Property来声明。其语法格式为：PropertyOnNe0cm0pt">readFonNe0cm0pt">声明事件后往往要将0cm0pt">ProcedureMsgPro(varMsg：Tm

3、essage);messageAmsgIndex;其中，关键字Message声明此为一个消息管理方法。AmsgIndex为一整数常数，作sgIndex的消息传递至应用程序时便会执行MsgPro过程。5．测试构件测试构件，确信构件是按设计编译和起作用的。这是构件开发中非常关键的一步，为测试构件，要先写一个用作测试的应用程序，由于不能拉出构件选项板窗口上的构件，还必须人工创建一个构件。6．将新构件添加到构件选项板当构件正常工作并令人感到满意后，可添加到构件选项板上，从主菜单选择ponent

4、Installponent显示一个Inst

5、allponent对话框，该对话框能够添加构件到程序包。二．构件创建实例下面要开发的新构Tne0cm0pt">1.选中ponent菜单项中的Nee框中填入Tneples，在UnitFileName框中填入Ne0cm0pt">2.使用Tools菜单中ImageEditor来创建编辑文件Ne0cm0pt">3.增加新属性EnterTextColor，并为读写属性增加私有方法SetEnterTextColor和私有变量FenterTextColor。加入如下的代码:PrivateFenterTextColor:Tcolor;SetEn

6、terTextColor(Acolor:Tcolor);PublishedPropertyEnterTextColor:TcolorReadFenterTextColorsoPlainTextstyle="MARGIN:0cm0cm0pt">…ImplementationProcedureTne0cm0pt">BeginFEnterTextColor:=Acolor;End;4.增加保护方法MouseEnter、MouseLeave、CM_MouseEnter和CM_MouseLeave加入如下的代码:protectedProc

7、edureMouseEnter;virtual;ProcedureMouseLeave;virtual;ProcedureCM_MouseEnter(varmsg:Tmessage);MessageCM_MouseEnter;ProcedureCM_MouseLeave(varmsg:Tmessage);MessageCM_MouseLeave;…ImPlementationProcedureMouseEnter;BeginIfassigned(FonMouseEnter)thenFonMouseEnter(self);End;

8、ProcedureCM_MouseEnter(varmsg:Tmessage);BeginInherited;MouseEnter;End;5.增加事件OnMouseEnter和OnMouseLeave加入如下的代码:PrivateFonMouseEnter,FonMouseLeave:TnotifyEvent;PublishedOnMouseEnter:TnotifyEventReadFonMouseEnter0cm0pt">OnMouseLeave:TnotifyEventReadFonMouseLeaveouseLeave

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