关于VCL的编写 (一) 如何编写自己的VCL控件
如何编写自己的VCL控件
用过Delphi的朋友们,大概对Delphi的最喜欢Delphi的不是他的强类型的pascal语法,而是强大的VCL控件,本人就是一位VCL控件的爱好者。
VCL控件的开源,给我们带来了享之不尽的优点。不像曾经的ole控件以及ActiveX,你全然能够重写Delphhi标准控件,并且网上这方面的资源非常多。
关于怎样编写VCL控件,和多Delphi的书籍里都有介绍,在此简单的说明一下。
在Delphi中,TComponent是全部VCL构件的基础。编写非可视构件以便从TComponent派生。Delphi提供了若干专门用于制作控件(可视构件)的基本构件类型,都是从TControl和TWinControl派生而来。其派生关系例如以下:
TControl---TGraphicControl---TCustomLabel
TWinControl--TCustomControl---TCustomGrid
---TButtonControl--TCustomGroupBox
---TScrollingWinControl--TCustomPanel
---TCustomComboBox
---TCustomEdit
---TCustomListBox
TControl的子类型用于非窗体式控件,TWinControl的子类型 则用于窗体式控件。除非特殊须要,一般不直接从TControl和 TWinControl派生新控件,而是从其子类型派生。这样能够充分利 用原有的属性、事件和方法,降低非常多工作量。
编写控件,首先要选择适当的VCL对象类型作为父对象,以派生新的对象。
以下给出一个详细的样例,来实现一个增强型的Edit输入框,是他能够依据输入的数据类型对输入字符进行有效性推断,添加相似于TLabel一样的左对齐、中对齐、右对齐功能。
通过Delphi的构件向导从TEdit继承生成自己的控件:
TEditDataType = (dtpString, dtpInteger, dtpFloat); //输入的数据类型
TMyEdit=class(TEdit)
private
FAlignment: TAlignment;
FDataType: TEditDataType;
Fprecision: Integer;
procedure SetAlignment(const Value: TAlignment);?? //用来设置对齐方式方法
procedure SetPrecision(const Value: Integer);????????????
procedure SetDataType(const Value: TEditDataType);
function GetAsFloat: double;
function GetAsInteger: Integer;
procedure SetAsFloat(const Value: double);
procedure SetAsInteger(const Value: Integer);
function GetAsText: String;
procedure SetAsText(const Value: String);
protected
procedure CMExit(var Message: TCMExit); message CM_EXIT; //重写消息, 下一篇将具体介绍消息
procedure KeyPress(var Key: Char); override; //重写键盘按键事件,用来控制键盘输入
public
constructor Create(AOwner: TComponent); override;
procedure CreateParams(var Params: TCreateParams); override;//重写,实现左右对其
property Alignment: TAlignment read FAlignment write SetAlignment default
taLeftJustify; //对齐方式
property DataType: TEditDataType read FDataType write SetDataType default
dtpString; //设置输入的数据类型
published
property Precision: Integer read Fprecision write SetPrecision; //小数点有效位数property AsFloat :double read GetAsFloat write SetAsFloat; //? 添加相似于C++一样 的类型转换函数,不用每一次自己调用函数转换
property AsInteger:Integer read GetAsInteger write SetAsInteger;
property AsString :String read GetAsText write SetAsText;
end;
//以下我们来一个一个实现我们想要实现的功能。
第一个实现左对其必须重写CreateParams函数,详细实现例如以下:
procedure TMyEdit.CreateParams(var Params: TCreateParams);
const
Alignments: array[Boolean, TAlignment] of DWORD =
((SS_LEFT, SS_RIGHT, SS_CENTER), (SS_RIGHT, SS_LEFT, SS_CENTER));
begin
inherited CreateParams(Params);
CreateSubClass(Params, 'EDIT');
with Params do
begin
Style := Style or SS_NOTIFY or
Alignments[UseRightToLeftAlignment, FAlignment];
end;
end;
//设置对齐方式
procedure TMyEdit.SetAlignment(const Value: TAlignment);
begin
if FAlignment <> Value then
begin
FAlignment := Value;
RecreateWnd; //重画控件
end;
end;
依据所设定的数据类型控制输入的字符串,重写KeyPress事件
procedure TlsCustomEdit.KeyPress(var Key: Char);
begin
case FDataType of
dtpInteger: //假设是整数
begin
if not (Key in ['0'..'9', '-', #8, #13, #35, #39]) then
Key := #0;
if (Key = '-') and ((Pos('-', Text) > 0) or (SelStart <> 0)) then
Key := #0;
end;
dtpFloat: //假设是符点数
begin
if not (Key in ['0'..'9', '.', '-', #8, #13, #35, #36, #37, #39]) then
Key := #0;
if (Key = '.') and (Pos('.', Text) > 0) then
Key := #0;
if (Key = '-') and ((Pos('-', Text) > 0) or (SelStart <> 0)) then
Key := #0;
end
end;
inherited KeyPress(Key);? //调用父类的KeyPress方法
end;
号了,如今这个控件就差点儿相同了.
关于简单控件的编写,一般仅仅须要从Delphi为你准备好的基本构件类型继承下来,然后重写父类的一些方法,加入自己的一些方法,以及属性就能够了.你还能够学Delphi一样写出一些抽象构件类型来, 比方说上面的TMyEdit, 你能够先写一个主要的TCustomMyEdit 然后,从他继承,引伸出很多其它控件出来.? 基本构件类型的编写,你得高瞻远瞩, 让你的基本类型足够抽象. 在这里, 你所学的OOP的思想就能够在此大展身手了. 习惯上, 基本构件类型,不须要published.
在制作构件时,有要接触到非常多类和非常多的属性和方法,在这里,列出了一些比較重要并且比較经常使用的类和它的属性和方法。
TComponent
ComponentState 属性,标志构件正处于的状态,如编辑,调入,读取等。能够跟据状态来决定当前构件要做的事情;
Notification方法:当一个构件被删除,增加时,会使用这一个方法通知全部的构件(除了被删除或增加的那一个构件)。这一个方法有两个參数:AComponent,Operation。进入的參数通知构件如今对哪一个构件进行操作,进行什么样的操作。使用时,在新的构件里覆盖掉Notification方法,在Notification方法里写上接收到通知的代码就能够了;在做一些容器控件,控件关联,如DB构件时非常实用.否则,你删除时会有一个地址错误.
Loaded方法:当一个构件加载完成后,该方法被调用。与Notification方法一样,使用时,在新的构件里覆盖掉Loaded方法,然后在Loaded方法里写上加载完成的代码就能够了;
Updating方法:当一个构件正在被改变时,被调用;
Updated方法:当一个构件改变完成时,被调用。
TGraphicControl
Canvas属性:画布,图形构件必须有的属性;
Left, Top, Width, Height属性:在父构件里显示出来的大小;
ControlState属性:控制状态,如鼠标按下,是否接受调色板更改信息,是否接受焦点等;
ControlStyle属性:控制类型,如是否透明,是否有3D Frame等等;
Paint方法:该方法在接受到WM_PAINT消息后就被调用,画出自己;
VCL的初步学习一般还算easy,和不论什么计算机语言一样,当你须要更深入的时候,进展就比較慢了,所须要的知识是越来越多。就VCL的编写一些难点列举一二:一个是系统消息几Windows API。你须要写一个比較复杂的控件,你须要对系统消息比較熟悉。还有一个是属性编辑器以及组件编辑器的编写。别看Delphi中VCL有源代码,但不是所有的,就属性编辑器来说,想找到一些非常有參考价值的,非常难。本人将在接下来的篇章中慢馒和读者探讨。
关于VCL的编写 (一) 如何编写自己的VCL控件的更多相关文章
- TGraphicControl(自绘就2步,直接自绘自己,不需要调用VCL框架提供的函数重绘所有子控件,也不需要自己来提供PaintWindow函数让管理框架来调用)与TControl关键属性方法速记(Repaint要求父控件执行详细代码来重绘自己,还是直接要求Invalidate无效后Update刷新父控件,就看透明不透明这个属性,因为计算显示的区域有所不同)
TGraphicControl = class(TControl) private FCanvas: TCanvas; procedure WMPaint(var Message: TWMPaint) ...
- Delphi 编写ActiveX控件(OCX控件)的知识和样例(有详细步骤)
一.ActiveX应用情况简介: ActiveX控件也就是一般所说的OCX控件,它是 ActiveX技术的一部分.ActiveX是微软公司推出的基于组件对象模型COM的技术,包括对Windows 32 ...
- 编写可编辑的List控件
今天由于项目的需要,要编写个能编辑的List控件,即双击List控件的表项能修改其中的内容.由于MFC自带的List控件是不能编辑的,所以在网上找了下怎样编写可编辑的CListCtrl控件,基本上都是 ...
- JS调用Delphi编写的OCX控件
原文:http://www.mamicode.com/info-detail-471283.html 一.使用Delphi XE2编写OCX控件 生成OCX工程: 1.File-New-Other,在 ...
- SharePoint用户控件编写的简单介绍
转:http://www.it165.net/design/html/201204/1131.html 我们开发中,通常需要写各种各样的部件来实现我们的展示或者功能,下面就介绍下刚刚接触的QuickP ...
- 【C#基础】CSA控件编写秘籍
新建CSA控件 1.新建一个纯类,命名空间是: namespace SimPerfect.CSAControlLibrary.CSAControls 2.实现两个构造函数:无参和传Candy参数 pu ...
- Android高级图片滚动控件,编写3D版的图片轮播器
转载请注明出处:http://blog.csdn.net/guolin_blog/article/details/17482089 大家好,好久不见了,最近由于工作特别繁忙,已经有一个多月的时间没写博 ...
- 编写在浏览器中不弹出警告的ActiveX控件
我们在编写ActiveX控件时,如果用在浏览器中,经常都会弹出现在运行的脚本不安全的提示, 如果给客户使用,将会带来极大不便.按照MSDN的介绍通常有两种一种是实现IObjectSafe接口,一种是通 ...
- SharePoint 用户控件编写的简单介绍
我们开发中,通常需要写各种各样的部件来实现我们的展示或者功能,下面就介绍下刚刚接触的QuickPart+用户控件的方式,算是自己的学习笔记,也和大家交流下心得. 1. 新建Web应用程序 2. 在项目 ...
随机推荐
- 解决Delphi MDI 闪烁问题(使用WM_SETREDRAW锁屏后进行处理)
procedure TMainForm.CreateMDIChild(const Name: string); var Child: TMDIChild; begin { create a new M ...
- CSU 1506(最小费用最大流)
传送门:Double Shortest Paths 题意:有两个人:给出路径之间第一个人走所需要的费用和第二个人走所需要的费用(在第一个人所需的 费用上再加上第二次的费用):求两个人一共所需要的最小费 ...
- 深入浅出Windows BATCH
1.什么是Windows BATCH BATCH也就是批处理文件,有时简称为BAT,是Windows平台上的一种可运行脚本,与*nix(Linux和Unix)上的Shell脚本和其它的脚本(Perl, ...
- acdream 1222 Quantization Problem [dp]
称号:acdream 1222 Quantization Problem 题意:给出一个序列 a ,然后给出一个 n * m 的矩阵,让你从这个矩阵中选出一个序列k,使得sum(abs(ki - ai ...
- HADOOP2.6
LINUX下HADOOP2.6.0集群环境的搭建 本文旨在提供最基本的,可以用于在生产环境进行Hadoop.HDFS分布式环境的搭建,对自己是个总结和整理,也能方便新人学习使用. 基础环境 JDK的安 ...
- spring集成 JedisCluster 连接 redis3.0 集群
最近在公司做了 jedisCluster整合spring 的配置, 分享如下 客户端采用最新的jedis 2.7 1. maven依赖: <dependency> <groupId& ...
- 秒杀多线程第二篇 多线程第一次亲热接触 CreateThread与_beginthreadex本质差别
本文将带领你与多线程作第一次亲热接触,并深入分析CreateThread与_beginthreadex的本质差别,相信阅读本文后你能轻松的使用多线程并能流畅准确的回答CreateThread与_beg ...
- JDBC数据库连接
JDBC是什么? Java Data Base Connectivity JDBC是: 以统一方式訪问数据库的API,能够訪问不论什么类型表列数据.特别是存储在关系数据中的数据.JDBC代表Java数 ...
- 浅谈JAVA ThreadPoolExecutor(转)
这篇文章分为两部分,前面是ThreadPoolExecutor的一些基本知识,后一部分则是Mina中一个特殊的ThreadPoolExecutor代码解析.算是我的Java学习笔记吧. 基础 在我看来 ...
- httl开源JAVA模板引擎,动态HTML页面输出
HTTL(Hyper-Text Template Language)是一个适用于HTML输出的开源JAVA模板引擎,适用于动态HTML页面输出,可用于替代JSP页面,它的指令类似于Velocity. ...