关于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. 在项目 ...
随机推荐
- Qt窗口操作函数(最大化,全屏,隐藏最大化,最小化)
Qt窗口中的一些小技术总结 //Qt主窗口没有最小化,最大化按钮且最大化显示 int main(int argc, char *argv[]) { QApplication a(argc, argv ...
- hibernate学习(一)
一.准备工作:导入jar包 1.hibernate的jar包 位置: hibernate-release-5.0.2.Final\hibernate-release-5.0.2.Final\lib\r ...
- 《转》如何成为一个牛逼的C/C++程序员?
原地址:http://blog.csdn.net/langeldep/article/details/6333562 这个题目的噱头太大,要真的写起来, 足够写一本书了. 本人是过来人, 结合自身的体 ...
- IOS中的id与nil
1 id id和void *并非完全一样.在上面的代码中,id是指向struct objc_object的一个指针,这个意思基本上是说,id是一个指向任何一个继承了Object(或者NSObject) ...
- CodeForces 377B---Preparing for the Contest(二分+贪心)
C - Preparing for the Contest Time Limit:2000MS Memory Limit:262144KB 64bit IO Format:%I64d ...
- PHP开发学习门户改版效果图投票
亲们,PHP开发学习门户上线两个月啦,站长想进行一次改版.希望大家在留下宝贵的一票.选出喜欢的样式吧 A样式: B样式: mod=misc&action=votepoll&fid=46 ...
- CoreJava_Collection接口add有一个返回值!
今天讨论与朋友小知识,我发现很多人不知道collection接口定义add方法返回的值,我们所有的工作很多年Java职工.不熟悉的公共接口,使自己成为在细节上的麻烦.一个小采访这让我想起,当我 ...
- broadcom6838开发环境实现函数栈追踪
在嵌入式设备开发中.内核为内核模块的函数栈追踪已经提供了非常好的支持,但用户层的函数栈追踪确没有非常好的提供支持. 在网上收集学习函数栈跟踪大部分都是描写叙述INTER体系架构支持栈帧的实现机制.或者 ...
- MVC之文件上传1
MVC之文件上传 前言 这一节我们来讲讲在MVC中如何进行文件的上传,我们逐步深入,一起来看看. Upload File(一) 我们在默认创建的项目中的Home控制器下添加如下: public Act ...
- 如何禁止使用teamviwer的使用
前几天有人问我teamviwer怎么禁止,刚开始做实验的时候过滤了teramviwer.com解析出来的IP,可是还是没有用,其实将teamviwer登陆的服务器地址在路由器上过滤,teramviwe ...