首页 | 社区 | 博客 | 招聘 | 文章 | 新闻 | 下载 | 项目交易 | 网友作品 | 读书 | ACM题库 | 源码
亲,您未登录哦! 登录 | 注册

自己开发delphi的vcl

(加入日期: 2001-07-04 )

打印文章】【字体:

分享到:
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、 对于从哪些类继承,根据自己的需要选择,尽可能选择功能接近,已经实现部分功能的类,这样写比较方便。
以上是自己的一些心得,还望多多指正。

本栏文章均来自于互联网,版权归原作者和各发布网站所有,本站收集这些文章仅供学习参考之用。任何人都不能将这些文章用于商业或者其他目的。( Pfan.cn )

编程爱好者论坛

本栏最新文章