Delphi控件 我们也可以(2)

long_ncist

long_ncist

2016-01-29 14:12

Delphi控件 我们也可以(2),Delphi控件,我们也可以(2)
 
实践第一步——分析和设计

  Delphi为我们提供的组件中,有一个Label控件,它完成了最基本的单行文本标签功能。不过它的功能实在是太有限啦,总是在那里灰不溜秋地趴着。现在我们给它增加点动态效果,让它成为一个可以在鼠标经过时改变外表的标签——TouchLabel。也就是说,在Label的基础上,我们要给它添加几个属性,使鼠标经过时,标签的的文字效果会变为我们指定的样子。那么,我们要扩充的功能分为以下几部分:

1、两个属性及其对应的属性编辑器,为它指定MouseMoving时的背景色和前景色。

2、在鼠标经过标签上时,改变标签的外观。

3、鼠标移出后,把外观改为原来的样子。

分析这三个功能,需要用到以下的技术:

  自义属性,事实上把属性定义为Publish类型,并为它指定对应的Read和Write方法,它就会出现在属性编辑器中。现在我们把这两个属性命名为TouchBKColor和TouchFont。现在看一下我的属性定义:

property TouchBKColor : TColor Read GetTouchBKColor Write SetTouchBKColor

stored isStoreTouchBKColor default clWindow;

property TouchFont : TFont Read FTouchFont Write SetTouchFont

stored isStoreTouchFont;

  stored是标识这个属性是否要保存在程序的.dfm中以做持久化,通常它由一个返回值为 Boolean 类型的函数来控制。这里是isStoreTouchBKColor 和isStoreTouchFont。而default是用来为这个属性指定一个默认值。另外,我还定义了一个属性来判断是否需要让这个Touch功能生效。就是

property ChangeWhileTouch : Boolean Read isStoreTouchFont

Write isStoreTouchFont default True;

  这些代码并不复杂,我直接将它们附在后面,在这里就不多占篇幅了。只有两点要指出,一个是在属性本身的Read和Write方法中不可以对属性本身进行读写,否则会引起无穷递归。还有一个是属性本身不保存信息,通常的做法是在读写方法中操作某一私有字段。

  “事件”响应,这不是平时我们所用的事件响应,而是为鼠标进出控件编写对应的代码。在VCL和CLX中,采用的是不同的方法。VCL的消息体系和Windows的消息体系比较接近,我们要找出鼠标进出控件的消息,写对应的消息响应代码。而CLX是基于著名的C++跨平台类库QT开发的。所以它采用的是QT的信号——槽机制。好在CLX可视控件的基础类TControl为我们封装了MouseEnter和MouseLeave,我们只要重载这两个成员方法,写上我们自己的代码。而在VCL和CLX的TouchLabel组件中,这些代码完全通用。方法载很简单,我介绍一下消息响应。
VCL的消息响应:

  当然,我们先要找到鼠标出入控件的消息。别以为我这是废话,Borland公司的技术资料之糟糕和他们出色的开发工具一样举世闻名,而这两个消息又不是windows的标准消息,所以我们要自己去找。告诉你一个秘密,VCL的消息列表在Controls单元中。我就是在那里找到了CM_MOUSEENTER和CM_MOUSELEAVE消息。现在我们学习一下Delphi的消息响应方法的格式:

procedure procedureName(var Message: Tmessage); Message TheMessage;

  procedure关键字说明消息响应是一个方法,procedureName是你为它起的名字,它的参数是可以先照抄,后面的TheMessage就是你要这个方法响应的消息。

所以,我们定义这两个方法为

procedure TTouchLabel.CMMouseEnter(var Message: TMessage);

begin

inherited;

if not ChangeWhileTouch then exit;

if FColor < FTouchColor then

begin

FTempColor := Color;

Color := TouchBKColor;

end;

FTempFont.Assign(Font);

Font.Assign(TouchFont);

end;


procedure TTouchLabel.CMMouseLeave(var Message: TMessage);

begin

inherited;

if not ChangeWhileTouch then exit;

if FColor < FTouchColor then

Color := FTempColor;

Font.Assign(FTempFont);

end;

  在CLX版本中,只是方法的声明不同,实现代码是一样的,所以不多说了。最后要指出的是,这里面我们会用到对象类型的成员,一定要记着自己定义,自己构造,自己析构。
 
展开更多 50%)
分享

猜你喜欢

Delphi控件 我们也可以(2)

Delphi
Delphi控件 我们也可以(2)

Delphi控件 我们也可以(3)

Delphi
Delphi控件 我们也可以(3)

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

Delphi控件 我们也可以(4)

Delphi
Delphi控件 我们也可以(4)

Delphi控件 我们也可以(1)

Delphi
Delphi控件 我们也可以(1)

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

Delphi控件制作技巧[一]

编程语言 网络编程
Delphi控件制作技巧[一]

Delphi控件制作技巧[二]

编程语言 网络编程
Delphi控件制作技巧[二]

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

关于VisiBroker For Delphi的使用(3)

关于VisiBroker For Delphi的使用(3)

《崩坏学园2》麒麟臂好不好用伤害高么

《崩坏学园2》麒麟臂好不好用伤害高么
下拉加载更多内容 ↓