如何编写自己的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控件的更多相关文章

  1. TGraphicControl(自绘就2步,直接自绘自己,不需要调用VCL框架提供的函数重绘所有子控件,也不需要自己来提供PaintWindow函数让管理框架来调用)与TControl关键属性方法速记(Repaint要求父控件执行详细代码来重绘自己,还是直接要求Invalidate无效后Update刷新父控件,就看透明不透明这个属性,因为计算显示的区域有所不同)

    TGraphicControl = class(TControl) private FCanvas: TCanvas; procedure WMPaint(var Message: TWMPaint) ...

  2. Delphi 编写ActiveX控件(OCX控件)的知识和样例(有详细步骤)

    一.ActiveX应用情况简介: ActiveX控件也就是一般所说的OCX控件,它是 ActiveX技术的一部分.ActiveX是微软公司推出的基于组件对象模型COM的技术,包括对Windows 32 ...

  3. 编写可编辑的List控件

    今天由于项目的需要,要编写个能编辑的List控件,即双击List控件的表项能修改其中的内容.由于MFC自带的List控件是不能编辑的,所以在网上找了下怎样编写可编辑的CListCtrl控件,基本上都是 ...

  4. JS调用Delphi编写的OCX控件

    原文:http://www.mamicode.com/info-detail-471283.html 一.使用Delphi XE2编写OCX控件 生成OCX工程: 1.File-New-Other,在 ...

  5. SharePoint用户控件编写的简单介绍

    转:http://www.it165.net/design/html/201204/1131.html 我们开发中,通常需要写各种各样的部件来实现我们的展示或者功能,下面就介绍下刚刚接触的QuickP ...

  6. 【C#基础】CSA控件编写秘籍

    新建CSA控件 1.新建一个纯类,命名空间是: namespace SimPerfect.CSAControlLibrary.CSAControls 2.实现两个构造函数:无参和传Candy参数 pu ...

  7. Android高级图片滚动控件,编写3D版的图片轮播器

    转载请注明出处:http://blog.csdn.net/guolin_blog/article/details/17482089 大家好,好久不见了,最近由于工作特别繁忙,已经有一个多月的时间没写博 ...

  8. 编写在浏览器中不弹出警告的ActiveX控件

    我们在编写ActiveX控件时,如果用在浏览器中,经常都会弹出现在运行的脚本不安全的提示, 如果给客户使用,将会带来极大不便.按照MSDN的介绍通常有两种一种是实现IObjectSafe接口,一种是通 ...

  9. SharePoint 用户控件编写的简单介绍

    我们开发中,通常需要写各种各样的部件来实现我们的展示或者功能,下面就介绍下刚刚接触的QuickPart+用户控件的方式,算是自己的学习笔记,也和大家交流下心得. 1. 新建Web应用程序 2. 在项目 ...

随机推荐

  1. 解决Delphi MDI 闪烁问题(使用WM_SETREDRAW锁屏后进行处理)

    procedure TMainForm.CreateMDIChild(const Name: string); var Child: TMDIChild; begin { create a new M ...

  2. CSU 1506(最小费用最大流)

    传送门:Double Shortest Paths 题意:有两个人:给出路径之间第一个人走所需要的费用和第二个人走所需要的费用(在第一个人所需的 费用上再加上第二次的费用):求两个人一共所需要的最小费 ...

  3. 深入浅出Windows BATCH

    1.什么是Windows BATCH BATCH也就是批处理文件,有时简称为BAT,是Windows平台上的一种可运行脚本,与*nix(Linux和Unix)上的Shell脚本和其它的脚本(Perl, ...

  4. acdream 1222 Quantization Problem [dp]

    称号:acdream 1222 Quantization Problem 题意:给出一个序列 a ,然后给出一个 n * m 的矩阵,让你从这个矩阵中选出一个序列k,使得sum(abs(ki - ai ...

  5. HADOOP2.6

    LINUX下HADOOP2.6.0集群环境的搭建 本文旨在提供最基本的,可以用于在生产环境进行Hadoop.HDFS分布式环境的搭建,对自己是个总结和整理,也能方便新人学习使用. 基础环境 JDK的安 ...

  6. spring集成 JedisCluster 连接 redis3.0 集群

    最近在公司做了 jedisCluster整合spring 的配置, 分享如下 客户端采用最新的jedis 2.7 1. maven依赖: <dependency> <groupId& ...

  7. 秒杀多线程第二篇 多线程第一次亲热接触 CreateThread与_beginthreadex本质差别

    本文将带领你与多线程作第一次亲热接触,并深入分析CreateThread与_beginthreadex的本质差别,相信阅读本文后你能轻松的使用多线程并能流畅准确的回答CreateThread与_beg ...

  8. JDBC数据库连接

    JDBC是什么? Java Data Base Connectivity JDBC是: 以统一方式訪问数据库的API,能够訪问不论什么类型表列数据.特别是存储在关系数据中的数据.JDBC代表Java数 ...

  9. 浅谈JAVA ThreadPoolExecutor(转)

    这篇文章分为两部分,前面是ThreadPoolExecutor的一些基本知识,后一部分则是Mina中一个特殊的ThreadPoolExecutor代码解析.算是我的Java学习笔记吧. 基础 在我看来 ...

  10. httl开源JAVA模板引擎,动态HTML页面输出

    HTTL(Hyper-Text Template Language)是一个适用于HTML输出的开源JAVA模板引擎,适用于动态HTML页面输出,可用于替代JSP页面,它的指令类似于Velocity. ...