在Delphi中编写控件的基本方法(1)_Delphi程序_学习笔记★闵涛★计算机学习电脑编程软硬件技巧


	转至繁体中文版	\| 网站首页 \| 图文教程 \| 资源下载 \| 站长博客 \| 图片素材 \| 武汉seo \| 武汉网站优化 \|

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

作者：闵涛文章来源：闵涛的学习笔记点击数：629 更新时间：2009/4/23 18:41:49

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

[ 作者: 雷小园添加时间: 2001-5-5 18:01:08 ]

来源：www.ccidnet.com

　　作为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;

没有相关教程

教程录入：mintao 责任编辑：mintao

上一篇教程： Delpi在MDI窗口中显示图形控件及指定背景的解决方案

下一篇教程：用Delphi编写安装程序(1)

【字体：小大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】

注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网]

　网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）

同类栏目

· C语言系列 · VB.NET程序
· JAVA开发 · Delphi程序
· 脚本语言

热门推荐

没有教程

赞助链接

闵涛博文

500 - 内部服务器错误。

您查找的资源存在问题，因而无法显示。

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18

闵涛站盟:医药大全-武穴网。A打造B、C、D……