在Delphi中编写控件的基本方法

原创 2001年12月09日 15:40:00

 

在Delphi中编写控件的基本方法

  作为Delphi程序员,要想进一步提高编程水平就必须掌握控件的编写方法,本篇文章将通过一个简单的例子来为初学者介绍编写控件的一些基本方法和模式。

  这个例子控件叫TLeiLabel,是在TLabel的基础上增加两个实用的功能:一是使文字具有立体形状,二是使文字具有超链接属性。下面就让我们一步步来实现这些功能。

  一、使文字具有立体形状
  首先定义类型T3DEffect和属性Style3D分别如下:

  T3DEffect=(Normal,Raised,Lowered, Shadowed);

  property Style3D:T3DEffect read FStyle3D write SetStyle3D default Normal;

  再在private中定义变量:“FStyle3D:T3DEffect;”,并设置SetStyle3D()方法如下,这也是写方法的一般格式:

  procedure TLeiLabel.SetStyle3D(Value: T3DEffect);

   begin

   if FStyle3D <> value then

   begin

   FStyle3D := value;

   invalidate; //表示控件将重画

   end;

   end;

  另外对于带阴影的文字还要定义阴影的偏移量ShadeXOffSet和ShadeYOffSet:

  property ShadowXOffSet: integer read FXOffSet write SetFXOffSet default 5;

  property ShadowYOffSet: integer read FYOffSet write SetFYOffSet default -5;

  写方法SetFXOffSet()、SetFYOffSet()和上面的SetStyle3D()类似。

  要重画控件一般要重载Paint方法,此处只是重画文字,我们只需重载DoDrawText方法。

  DoDrawText的声明放在Protected中:

  procedure DoDrawText(var Rect: TRect; Flags: Longint); override;

  此处DoDrawText()根据四种类型(正常、凸起、凹进和阴影)分别画出不同的文字。

二、使文字具有超链接属性
  定义一个属性URL表示要链接的网址或Email地址。

  Property URL : String read FURL write SetURL;

  写方法SetURL如下:

  procedure TLeiLabel.SetURL(Value: String);

  Begin

  if FURL <> Value then FURL := Value ;

  if FURL <> '' then

  Cursor := crHandPoint;

  end;

  当点击此Label时要打开浏览器或收发邮件工具,这便要重载Click方法。

   Procedure Click; Override;

   procedure TLeiLabel.Click;

   var s: string;

   Begin

   Inherited Click;

   if FURL = '' then exit;

   if LowerCase(Copy(FURL,1,7)) = 'http://' then

   s := FURL

   else if Pos('@',FURL) <> 0 Then

   s := 'mailto:' + FURL

   else

   s := 'http://' + FURL;

   ShellExecute(Application.Handle, 'open', PChar(s), NIL, NIL, SW_SHOWNORMAL);

   end;

  一般的超链接当鼠标移入时文字的颜色发生变化。为此加上属性HoverColor,表示鼠标移入时文字的颜色。

  Property HoverColor : TColor Read FHoverColor Write SetHoverColor default clRed;

  还要定义两个接收Windows消息CM_MOUSEENTER和CM_MOUSELEAVE(鼠标移进和移出)的过程:

  Procedure CMMouseEnter(var Message: TMessage); message CM_MOUSEENTER;

  Procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE;

  Procedure TLeiLabel.CMMouseEnter (Var Message: TMessage);

   begin

   If Enabled and Visible and getParentForm(Self).Active then

   begin

   FFontColor := Font.Color;

  //将文字的颜色保存起来

   Font.Color := FHoverColor;

  //改变文字颜色

   End;

   end;

  Procedure TLeiLabel.CMMouseLeave (Var Message: TMessage);

   begin

   Font.Color:=FFontColor;

  //恢复文字原来的颜色

   end;

  为设置属性的默认值,我们还需要重载构造Create(),注意,重载构造时必须首先调用祖先类的构造。重载构造Create()的程序如下:

   constructor TLeiLabel.Create(AOwner: TComponent);

   begin

   inherited Create(AOwner);

  //必须首先调用祖先类的构造

   FStyle3D := Normal;

   FXOffSet := 5;

   FYOffSet := -5;

   FHoverColor := clRed;

   end;

  最后,还必须为这个控件加上图标。我们可以用Delphi中的Image Editor来创建一个24×24的Bitmap位图,保存为一个DCR文件,文件名必须与控件的Pas文件名相同,位图名必须与控件名相同且全部大写。

Delphi 编写ActiveX控件(OCX控件)的知识和样例

一、ActiveX应用情况简介:                          ActiveX控件也就是一般所说的OCX控件,它是 ActiveX技术的一部分。ActiveX是微软公司推出的基于...
  • zang141588761
  • zang141588761
  • 2016年04月26日 10:10
  • 1709

delphi写一个简单控件适合新手学习的例子

  • 2008年11月30日 18:41
  • 179KB
  • 下载

常用的delphi第三方控件

本人正职非开发,仅仅为兴趣爱好而自学的,所以它是否没落对我影响不大,但是它的快速部署直接生成EXE的能力,大量的第三方控件辅助增强软件功能,可以说在C/S桌面应用上很少有软件做得到。     Alph...
  • wozengcong
  • wozengcong
  • 2013年12月04日 10:28
  • 2369

汇总Delphi第三方控件—报表、图表、界面、数据库

有网友问我常用的Delphi第三方控件及功能。我先大概整理一下,以后会在文章里面碰到时再仔细介绍。 报表图表: TeeChart Pro 在 delphi 的图形显示方面目前唯一的选择,虽然从de...
  • dyllove98
  • dyllove98
  • 2013年03月19日 16:19
  • 5642

Delphi 编写IC控件

编写控件的基本步骤 1.确定一个祖先类 2.创建一个组件单元 3.在新控件中添加属性、方法和事件 事件定义方法如下: type private FOnClick:TNotifyEvent ;...
  • zang141588761
  • zang141588761
  • 2016年09月19日 13:40
  • 312

Delphi XE2控件安装方法

1) 首先打开所需要安装控件的安装文件,点击open project... (有些非可视的老控件直接打开DPK文件即可) XE2 的控件安装方法(转)" style="margin:0px; p...
  • Amymengfan
  • Amymengfan
  • 2013年09月03日 11:14
  • 1353

delphi xe2下载地址

http://altd.embarcadero.com/download/radstudio/xe2/delphicbuilder_xe2_4358_win_dl.iso    Delph...
  • a137268431
  • a137268431
  • 2015年03月26日 18:11
  • 1872

Delphi 编写ActiveX控件(OCX控件)的知识和样例

一、ActiveX应用情况简介:                          ActiveX控件也就是一般所说的OCX控件,它是 ActiveX技术的一部分。ActiveX是微软公司推出的基于...
  • zang141588761
  • zang141588761
  • 2016年04月26日 10:10
  • 1709

Delphi 第三方控件安装

1 只有一个DCU文件的组件。           DCU文件是编译好的单元文件,这样的组件是作者不想把源码公布。一般来说,作者必须说明此组件适合Delphi的哪种版本,如果版本不对,在安装时就会出...
  • lailai186
  • lailai186
  • 2013年05月25日 15:57
  • 5781

Delphi文字处理控件TRichView

TRichView 是一套支持Delphi/C++Builder的控件,有和Word相似的功能,主要用于编辑、显示和打印超文本文档。该控件支持各种各样不同的属性(字体、下标和上标,自定义下拉列表,文...
  • fanganzhuanjia
  • fanganzhuanjia
  • 2014年05月23日 14:14
  • 1025
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:在Delphi中编写控件的基本方法
举报原因:
原因补充:

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