网站导航免费论文 原创论文 论文搜索 原创论文 网学软件 学术大家 资料中心 会员中心 问题解答 原创论文 论文素材 设计下载 最新论文 下载排行 论文上传 在线投稿 联系我们
返回网学首页
网学联系
最新论文 推荐专题 热门论文 素材专题
当前位置: 网学 > 编程文档 > DELPHI > 正文
自己开发delphi的vcl
来源:Http://myeducs.cn 联系QQ:点击这里给我发消息 作者: 用户投稿 来源: 网络 发布时间: 12/10/12
下载{$ArticleTitle}原创论文样式

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

网学推荐

免费论文

原创论文

浏览:
设为首页 | 加入收藏 | 论文首页 | 论文专题 | 设计下载 | 网学软件 | 论文模板 | 论文资源 | 程序设计 | 关于网学 | 站内搜索 | 网学留言 | 友情链接 | 资料中心
版权所有 QQ:3710167 邮箱:3710167@qq.com 网学网 [Myeducs.cn] 您电脑的分辨率是 像素
Copyright 2008-2015 myeducs.Cn www.myeducs.Cn All Rights Reserved
湘ICP备09003080号