Delphi自定义控件开发

Delphi 控件开发浅入深出(一)

有人说过“不会开发控件的  程序员不是真正的程序员”。 正是由于高度的可扩展

性和大量的第三方控件的支持才能吸引无数程序员挑剔的目光。即使是由于工作需要使用其他

开发工具的开发者也常常怀念和  度过的日日夜夜。接触  已经一年多了，从当初

对着  组件面板上上百个控件不知所措，到现在已经可以根据需要开发一些有一定难度

的控件，其中走过的路是十分艰辛的，所以特此写下这篇文章，将自己的经验留给后来者，也

算是献给“同门师弟”的一份厚礼吧！

需要说明的一点是：在写这篇文章之前我假设读者已经对面向对象的基本知识有一定的了解，

在 !" 中选择 ， 中填入 名字可以任意取，但是要

以  开头，否则的话会出现注册控件时候的问题。这里 !" 代表控件的基类，

 代表控件的名称。

#、超链接的视觉效果是带下划线的文字，所以我们覆盖父类的构造函数，在构造函数里修改

控件的字体属性。

!!!$! %!&'

(

!)! %!'

!!&*!+),'

$-"&*./)!0'

话框的话，那么十有八九是因为您忘了调用父类的构造函数。

（#）æ!!&*!+),'

$-"&*./)!0'

这三句的意思是修改标签的视觉效果。!!&*!+),'是设定当鼠标移动到

控件上时鼠标的形状为“手型”；$-"&*./)!0'是设定文字的下划线效果。

2、既然是超链接控件，那么我们肯定要能使用户在使用控件的时候能在“%34!

中对超链接的  进行修改，所以我们应该为控件增加一个 ! 属性。

属性是访问控件字段的接口。通过属性，控件使用者可以间接读或者写控件的内部字段改变

控件的状态。组件属性的声明需要以下几部分：属性名、属性类型、读方法（或读字段）、写

方法（或写字段。如果没有写方法或写字段，则该属性为只读属性）。

!!"!&-!(!)!!!'

这段声明的意思是为控件添加一个 ! 属性，属性的类型是 !(，在读 ! 属性时返回 !

的值，在写æ! 属性时设定 ! 的值。

6、超链接的视觉效果有了，下面使它点击时调用浏览器打开 ! 指定的网址。

在  控件的事件处理中很多事件都有对应的一个调度方法（这是设计模式中模板模

式的典型应用）。比如在鼠标点击控件时，控件会首先调用 7 方法，由 7 方法进行相

应的处理，而绝大多数调度方法都会引发一个事件句柄（关于事件句柄我们后边有深入的介

绍）。比如  控件中在用户用点击  时会首先调用控件的 7 方法（被声明为

,!) 级别），7 方法再触发 %7 事件。所以我们只要覆盖  的 7 方法

!)!7'5!!)'

!)!!$7'

(

-89 $+),!!-:;%< '

（2）æææ 4!)'的作用是调用父类的 7 方法来由父类来对鼠标单击事件做其他的处理。

=、源代码。

下面给出这个控件的全部源代码：

!'

!/



:)<(-"!-)!-

>!!'

"

!*

!& -!('

!)

!)!7'5!!)'





!!!$! %!&'

(

!)! %!'

!!&*!+),'

$-"&*./)!0'

)'

!)!!$7'

(

-89 $+),!!-:;%< '

!)'

)'

!)!(!'

(

(!@@.!0'AA控件生成向导生成的注册控件用代码

)'

B、为控件添加图标。

件放在同一个目录下。

打开 4(8)!选择”－－!$)!，如下图：