中国IT动力,最新最全的IT技术教程
最新100篇 | 推荐100篇 | 专题100篇 | 排行榜 | 搜索 | 在线API文档 | 网通镜像
首 页 | 程序开发 | 操作系统 | 软件应用 | 图形图象 | 网络应用 | 精文荟萃 | 教育认证 | 硬件维护 | 未整理篇 | 站长教程
ASP JS PHP工程 ASP.NET 网站建设 UML J2EESUN .NET VC VB VFP 网络维护 数据库 DB2 SQL2000 Oracle Mysql
服务器 Win2000 Office C DreamWeaver FireWorks Flash PhotoShop 上网宝典 CorelDraw 协议大全 网络安全 微软认证
硬件维护  CPU  主板  硬盘  内存  显卡  显示器  键盘鼠标  声卡音箱  打印机  机箱电源  BIOS  网卡  C#  Java  Delphi  vs.net2005
  当前位置:> 程序开发 > 编程语言 > Delphi > 综合文章
自己开发delphi的vcl
作者:未知 时间:2005-08-07 20:58 出处:编程爱好者网站 责编:chinaitpower
              摘要:自己开发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、 对于从哪些类继承,根据自己的需要选择,尽可能选择功能接近,已经实现部分功能的类,这样写比较方便。
以上是自己的一些心得,还望多多指正。

关闭本页
 
首页 | 投资与合作 | 服务条款 | 隐私政策 | 收藏本站 | 设为首页 | 新用户注册 | 免责声明 | 使用帮助
Copyright ©2005-2008 chinaitpower.com All rights reserved. www.chinaitpower.com 版权所有