自己开发Delphi的VCL
Delphi为何成为广大程序员爱好的开发工具,其中一个原因就是它有大量的共享的VCL库,打打扩展了Delphi的功能。但是在实际的开发过程中,有时候根据项目的需要要开发自己的VCL控件,我就有过不少这样的需求,因此自己也开发了多个VCL控件,由于水平有限,功能也不是很强大,下面将自己的一些经验介绍一下。
1、
选择File | New,在对话框中选择Component。在Ancestor Type中选择你的控件是从那个类继承下来的,然后在
"Class Name"输入你的类的名称,在Palette Page 中选择要把你的控件放到哪一个页面中。输入完毕后点击OK,生成pas文件。
2、
在控件中添加属性:
首先,控件的属性要存储在一个类变量中,比如一个类型为string的变量,就可以存储在一个可以存储string的类变量,比如一个string,TStringList等。因此首先要在类的private区域声明一个私有的类变量,为了防止名字重复,一般在私有的类变量前加一个"F"。如
private
Fname:String
我们假设这个属性的名字叫 FieldName,那我们就需要在published区域加上如下语句:
property FieldName:String read Fname write Fname;
这样的属性你可以访问,但是不在
"Object Inspector"中出现,如果想如此,应这样写:
property FieldName:String read Fname write Fname stored true;
这样的方法只实用于一些基本的数据类型,如integer, double ,String等等,对一些类,如Tstringlist,就不适合,对这些类应该怎么办呢?首先,还是要声明一个私有的变量存储该属性,以 Tstringlist为例子:
private Fnames:Tstringlist;
同时要写两个方法来对此类变量进行存取:
protected
Function getNames:Tstringlist;
Procedure setNames(value:Tstringlist);
在getName的函数体中,应这样写:
begin
result:=Fname;
end;
在setNames的方法中,应这样写:
begin
Fname.assign(value);
end;
在published中写:
property Names:Tstringlist read getNames write setNames;
同样如果想要这个属性在
"Object Inspector"中出现,要在后面加 stored true.
当然,你也可以通过其他类型的类对这个属性进行存取,比如通过Tlistbox来存取Tstringlist,因为类Tlistbox也包含有一个Tstringlist类。
3、
在控件中添加方法
添加方法比较简单,在published中声明方法,然后写方法体就可以。
4、
在控件中添加事件
添加事件之前,首先要声明一个事件类,如TnotifyEvent
private
MyEvent:TnotifyEvent;
声明事件
published
property OnMyEvent:TnotifyEvent read MyEvent write MyEvent stored true;
然后在特定的条件下调用这个事件:
OnMyEvent(owner);
5、
写数据敏感的控件:
数据敏感的控件和普通控件基本相同,只是有一个类Tdatalink,Tdatalink有一个onDatachange事件,你可以声明一个事件,然后将事件指向Tdatalink的onDatachange事件,然后在事件中写下程序就可以实现数据敏感了。
FDataLink.OnDataChange := DataChange;
然后在Datachange中写程序。
6、
重载构造器和构析器。在public或published中写:
构造器:
constructor Create(Aowner:Tcomponent); override;
构析器:
destructor Destory; override;
在构造时对一些类变量进行初始化,有的需要调用类变量的类构造方法进行构造,如
Fnames:=Tstirnglist.create;
在构析时对类变量进行释放
Fnames.Free;
7、
对于一些界面有关的控件,如果有特殊的界面需要,需要重载onpaint事件,在重画时对自己的canvas进行操作,当然,也可以对别的类的canvas进行操作,比如写一个控件,在重画时对它的容器用一个画进行平铺处理。
8、
对于从哪些类继承,根据自己的需要选择,尽可能选择功能接近,已经实现部分功能的类,这样写比较方便。
以上是自己的一些心得,还望多多指正。
posted on 2011-01-12 09:12
shaker(太子) 阅读(1085)
评论(0) 编辑 收藏 引用