随笔-60  评论-111  文章-0  trackbacks-0

自己开发DelphiVCL

Delphi为何成为广大程序员爱好的开发工具,其中一个原因就是它有大量的共享的VCL库,打打扩展了Delphi的功能。但是在实际的开发过程中,有时候根据项目的需要要开发自己的VCL控件,我就有过不少这样的需求,因此自己也开发了多个VCL控件,由于水平有限,功能也不是很强大,下面将自己的一些经验介绍一下。 
1
选择File | New,在对话框中选择
ComponentAncestor Type中选择你的控件是从那个类继承下来的,然后在 "Class Name"输入你的类的名称,在Palette Page 中选择要把你的控件放到哪一个页面中。输入完毕后点击OK,生成pas文件。 
2
在控件中添加属性: 
首先,控件的属性要存储在一个类变量中,比如一个类型为string的变量,就可以存储在一个可以存储string的类变量,比如一个stringTStringList等。因此首先要在类的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
写数据敏感的控件: 
数据敏感的控件和普通控件基本相同,只是有一个类TdatalinkTdatalink有一个onDatachange事件,你可以声明一个事件,然后将事件指向TdatalinkonDatachange事件,然后在事件中写下程序就可以实现数据敏感了。 
  FDataLink.OnDataChange := DataChange; 
然后在Datachange中写程序。 
6
重载构造器和构析器。在publicpublished中写: 
构造器: 
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(太子) 阅读(1093) 评论(0)  编辑 收藏 引用

只有注册用户登录后才能发表评论。
网站导航: 博客园   IT新闻   BlogJava   博问   Chat2DB   管理