关于VCL的编写 (一) 怎样编写自己的VCL控件
2008-12-02 09:17
453 查看
怎样编写自己的VCL控件 用过Delphi的朋友们,大概对Delphi的最喜欢Delphi的不是他的强类型的pascal语法,而是强大的VCL控件,本人就是一位VCL控件的爱好者。 VCL控件的开源,给我们带来了享之不尽的好处。不像以前的ole控件以及ActiveX,你完全可以重写Delphhi标准控件,而且网上这方面的资源很多。 关于如何编写VCL控件,和多Delphi的书籍里都有介绍,在此简单的说明一下。 在Delphi中,TComponent是所有VCL构件的基础。编写非可视构件以便从TComponent派生。Delphi提供了若干专门用于制作控件(可视构件)的基本构件类型,都是从TControl和TWinControl派生而来。其派生关系如下:TControl---TGraphicControl---TCustomLabelTWinControl--TCustomControl---TCustomGrid---TButtonControl--TCustomGroupBox---TScrollingWinControl--TCustomPanel---TCustomComboBox---TCustomEdit---TCustomListBoxTControl的子类型用于非窗口式控件,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; //设置输入的数据类型publishedproperty 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的初步学习一般还算容易,和任何计算机语言一样,当你需要更深入的时候,进展就比较慢了,所需要的知识是越来越多。就VCL的编写一些难点列举一二:一个是系统消息几Windows API。你需要写一个比较复杂的控件,你需要对系统消息比较熟悉。另一个是属性编辑器以及组件编辑器的编写。别看Delphi中VCL有源码,但不是全部的,就属性编辑器来说,想找到一些很有参考价值的,很难。本人将在接下来的篇章中慢馒和读者探讨。
相关文章推荐
- 关于VCL的编写 (一) 怎样编写自己的VCL控件 .
- 关于VCL的编写 (一) 怎样编写自己的VCL控件
- 关于VCL的编写 (一) 如何编写自己的VCL控件
- [VC]关于ocx控件的自己编写的dll问题
- 怎样在CRichEditCtrl控件中加入自己的右键菜单?
- Calendar自己编写日历控件 并且能编写自己日程。
- 关于《30天编写自己的操作系统》ipl 与linux0.01的关系
- 关于PropertyGrid的使用以及控件编写(转载微软的一片文章)
- Android自己定义控件系列一:Android怎样实现老版优酷client三级环形菜单
- 一个想了好几天的问题——关于8086cpu自己编写9号中断不能单步的问题
- 怎样编写自己的DLL库文件?
- 关于TdxTreeList控件中如何判断点CHECK标题是否已经选中或取消自己的问题?
- 自己编写vb进度条控件
- 深入C++ Builder之编写自己的元件 -深入分析VCL继承、消息机制(2)
- 自己编写的新闻显示控件(列表显示不过不够完善还需努力)
- 关于VCL的编写 (二) 简单介绍一下VCL消息传递
- 教材上关于模式匹配中的求next数组的算法不易理解,本人自己编写了一个具有相同功能的子函数
- 一个想了好几天的问题——关于8086cpu自己编写9号中断不能单步的问题
- 深入C++ Builder之编写自己的元件-深入分析VCL继承、消息机制(1)
- 自己动手编写一个类似 QuickPart 的用户控件包装器