如何编写自己的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. Qt窗口操作函数(最大化,全屏,隐藏最大化,最小化)

    Qt窗口中的一些小技术总结 //Qt主窗口没有最小化,最大化按钮且最大化显示  int main(int argc, char *argv[]) { QApplication a(argc, argv ...

  2. hibernate学习(一)

    一.准备工作:导入jar包 1.hibernate的jar包 位置: hibernate-release-5.0.2.Final\hibernate-release-5.0.2.Final\lib\r ...

  3. 《转》如何成为一个牛逼的C/C++程序员?

    原地址:http://blog.csdn.net/langeldep/article/details/6333562 这个题目的噱头太大,要真的写起来, 足够写一本书了. 本人是过来人, 结合自身的体 ...

  4. IOS中的id与nil

    1 id id和void *并非完全一样.在上面的代码中,id是指向struct objc_object的一个指针,这个意思基本上是说,id是一个指向任何一个继承了Object(或者NSObject) ...

  5. CodeForces 377B---Preparing for the Contest(二分+贪心)

    C - Preparing for the Contest Time Limit:2000MS     Memory Limit:262144KB     64bit IO Format:%I64d ...

  6. PHP开发学习门户改版效果图投票

    亲们,PHP开发学习门户上线两个月啦,站长想进行一次改版.希望大家在留下宝贵的一票.选出喜欢的样式吧 A样式: B样式: mod=misc&action=votepoll&fid=46 ...

  7. CoreJava_Collection接口add有一个返回值!

        今天讨论与朋友小知识,我发现很多人不知道collection接口定义add方法返回的值,我们所有的工作很多年Java职工.不熟悉的公共接口,使自己成为在细节上的麻烦.一个小采访这让我想起,当我 ...

  8. broadcom6838开发环境实现函数栈追踪

    在嵌入式设备开发中.内核为内核模块的函数栈追踪已经提供了非常好的支持,但用户层的函数栈追踪确没有非常好的提供支持. 在网上收集学习函数栈跟踪大部分都是描写叙述INTER体系架构支持栈帧的实现机制.或者 ...

  9. MVC之文件上传1

    MVC之文件上传 前言 这一节我们来讲讲在MVC中如何进行文件的上传,我们逐步深入,一起来看看. Upload File(一) 我们在默认创建的项目中的Home控制器下添加如下: public Act ...

  10. 如何禁止使用teamviwer的使用

    前几天有人问我teamviwer怎么禁止,刚开始做实验的时候过滤了teramviwer.com解析出来的IP,可是还是没有用,其实将teamviwer登陆的服务器地址在路由器上过滤,teramviwe ...