关于VCL的编写 (一) 怎样编写自己的VCL控件

原创 2004年09月15日 13:07:00

怎样编写自己的VCL控件 <?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />

      用过Delphi的朋友们,大概对Delphi的最喜欢Delphi的不是他的强类型的pascal语法,而是强大的VCL控件,本人就是一位VCL控件的爱好者。

     VCL控件的开源,给我们带来了享之不尽的好处。不像以前的ole控件以及ActiveX,你完全可以重写Delphhi标准控件,而且网上这方面的资源很多。

     关于如何编写VCL控件,和多Delphi的书籍里都有介绍,在此简单的说明一下。

 

Delphi中,TComponent是所有VCL构件的基础。编写非可视构件以便从TComponent派生。Delphi提供了若干专门用于制作控件(可视构件)的基本构件类型,都是从TControlTWinControl派生而来。其派生关系如下:

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方法:当一个构件被删除,加入时,会使用这一个方法通知所有的构件(除了被删除或加入的那一个构件)。这一个方法有两个参数:AComponentOperation。进入的参数通知构件现在对哪一个构件进行操作,进行什么样的操作。使用时,在新的构件里覆盖掉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。你需要写一个比较复杂的控件,你需要对系统消息比较熟悉。另一个是属性编辑器以及组件编辑器的编写。别看DelphiVCL有源码,但不是全部的,就属性编辑器来说,想找到一些很有参考价值的,很难。本人将在接下来的篇章中慢馒和读者探讨。

 

VCL组件开发

4.1 TObject分支     下面几部分分别对包含于五个主要分支中的类做出简要地描述,为完整地说明VCL对象的分层结构,引用了包含于产品中的VCL对象分层结构图。     所有的VCL对象都...
  • ghevinn
  • ghevinn
  • 2014年05月13日 11:54
  • 1850

Delphi 7学习开发控件

我们知道使用Delphi快速开发,很大的一方面就是其强大的VCL控件,另外丰富的第三方控件也使得Delphi程序员更加快速的开发出所需要的程序。在此不特别介绍一些概念,只记录自己学习开发控件的步骤。...
  • akof1314
  • akof1314
  • 2011年02月25日 17:06
  • 9818

Delphi控件开发 vcl开发

  • 2011年08月25日 22:12
  • 479KB
  • 下载

delphi VCL带源码,无限制经典mmtools,音频控件

  • 2010年11月11日 14:52
  • 2.05MB
  • 下载

delphi VCL研究之消息分发机制-delphi高手突破读书笔记

1.VCL 概貌 先看一下VCL类图的主要分支,如图4.1所示。 在图中可以看到,TObject是VCL的祖先类,这也是Object Pascal语言所规定的。但实际上,TObject以及TObj...
  • sushengmiyan
  • sushengmiyan
  • 2013年03月04日 21:36
  • 3263

delphi 控件大全

http://www.jrsoftware.org Tb97 最有名的工具条(ToolBar)控件库,仿Office97,如TDoCk97,TToolBar97,TEdit97,TToolWindo...
  • earbao
  • earbao
  • 2013年10月28日 11:48
  • 5200

《Inside VCL(深入核心——VCL架构剖析)》.(李维) 一

一、回到从前:1.1、多任务操作系统是如何设计和实现的? 1.1.1、系统——多个应用程序 方案1:(系统不断读取应用程序状态) 系统通过大型循环(Loop)不断坚持么一个恶用用程序是否触发了特定的事...
  • liang08114
  • liang08114
  • 2016年12月20日 21:03
  • 496

vclskin美化控件的用法

1. TSkinData   TSkinData 主要用于美化你的程序, 只要把TSkinData控件放下去,它就能自动美化所有窗体。 属性 Active: 使用或取消对程序的美化。 D...
  • smile00_0
  • smile00_0
  • 2013年11月16日 16:01
  • 1068

Delphi 7皮肤控件VCLSkin 5.60的使用

VCLSkin是一个能够用于创建Delphi/C++ Builder应用程序美化界面的皮肤组件。它允许允许软件开发人员不用修改程序代码便把软件界面变得非常漂亮。它的美化支持窗体和控件和菜单。VCLSk...
  • wozengcong
  • wozengcong
  • 2013年07月28日 18:15
  • 2955
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:关于VCL的编写 (一) 怎样编写自己的VCL控件
举报原因:
原因补充:

(最多只允许输入30个字)