说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

用Delphi开发分隔线组件

HTML文档下载 WORD文档下载 PDF文档下载
用Delphi开发分隔线组件

【摘要】本文以分隔线为例,采用面向对象方法,介绍了如何用Delphi开发Windows

的可视化控件。可视化控件具有较强的实用价值,用Delphi语言开发控件简便、方

便、

效率高。

关键词:Delphi 控件 面向对象

一、引言

Delphi除了能采用可视化方法进行编程和系统开发外,还有非常重要的一个功能,

就是能用其语言本身开发Delphi的可视化控件(Component)。Delphi是完全面向对

象的语言,其各个控件都是从最基本的类TClass逐步继承而来,因此,编程者也可

通过继承Delphi标准的控件类,开发出自己的控件,以满足某些特殊需要或使界面

更为友好、美观。

在Windows 95的某些窗口中,用到了很多分隔线(如在资源管理器窗口中)。分隔

线将一个窗口分成两个或多个部分。这些部分可能是面板(Panel)、图形、列表框

或编辑区。当鼠标移到分隔线上时,光标会变成左右箭头或上下箭头,将鼠标按住

并按指示的方向左右或上下拖动,就会使其中某部分放大,而另一部分缩小,从而

提高了窗口各部分的可视范围,增加了窗口的信息量。

二、基本原理

分隔线界于窗口中两个控件之间。首先要在当前窗口中找到分隔线控件,并记录它

的状态;然后要在窗口中找到与它相邻的控件,并记录它们的当前状态,然后再通

过分隔线的鼠标事件控制各个控件的移动及尺寸变化,从而达到用分隔线分隔窗口

的动态效果。

三、分隔线控件(TSplit)对象

分隔线控件对象由现有的控件对象继承而来,在此基础上,还必须有它本身的私有

变量(方法)和公有变量(方法)。具体为:

1、 首先定义分隔线控件类:TSplit。由于Delphi的面板控件Tpanel具有可改变其

凸凹、形状大小等属性,所支持的事件方法也较多,因此采用Tpanel作为TSplit的

父类。

2、 定义TSplit的私有变量和方法:与分隔线有关的一些控件,如其所在的窗口、

分隔线本身、分隔线的坐标、分隔线在移动时使其大小改变的控件(主要指分隔线

的左侧或上侧的控件,以下称目标)等,这些定义为私有变量;对分隔线和其周围

控件的检测、画阴影线以及求其状态等过程(子程序),定义为私有方法。其中关

键的变量有FSplitControl,FSizeTarget,它们为分隔线变量和所移动的目标控件

变量,通过调用私有方法GetComponent可将它们赋值,得到分隔线和目标的实例,

从而便于对他们操作。在分隔线移动时,DrawSizegLine方法画出它的阴影线。

3、定义公共方法:公共方法定义了TSplit的构造函数、开始移动分隔线、改变分隔

线 的 位 置、分隔线停止移动时调整目标(被分隔线改变形状的控件)尺寸等过

程,以及分隔线的鼠标事件:按下、移动和弹起。另外,还定义了分隔线是否可移

动的属性(property),以判断分隔线的当前状态。

鼠标事件是分隔线移动和目标改变大小的触发点,对鼠标事件进行重载,使得移动

和变化得以实现。在MouseDown事件中,加入了公共方法BeginSizing,对分隔线对

象初始化;MouseMove事件中加入ChangeSizing方法,改变分隔线位置和画阴影;

MouseUp事件中加入EndSizing,停止分隔线的移动,改变目标大小。

4、分隔线控件实现过程 (见附录:split.pas程序及其说明。)

四、控件的安装方法

在Delphi 1.0的系统菜单Options下(2.0为Components),选择Install Component子

菜单,弹出对话框,按Add按纽,在输入栏键入程序名及其路径,再按OK键,等待编

译完毕,在Delphi的控件列表中的Sample栏中就会出现我们所开发的新控件:

Split。

五、使用方法

1、 建立一个新的项目文件(Project),在新窗口上放置一个面板(或列表框、树

型结构列表、图形框、记忆框等),将其Align属性设为Left;

2、 从控件列表中的Sample栏中选取Split控件放于窗口,将其形状改为垂直的长条

窄棒,并将Align属性设为Left,Cursor属性设为crHSplit;

3、 再在窗口中放一个面板(或其他控件),将其Align属性设为Client;

4、 运行该项目文件,当鼠标移动到分隔线上,且光标变为左右箭头时,即能将其

两边的部分放大或缩小。

若想做成上下分隔线,将以上1和2中的Align属性设为Top,2中的Cursor属性设为

crVSplit,其余不变即可。

另外用户还可在3中的面板上再按1、2、3的步骤进行操作,将整个窗口用两个分隔

线分为3个部分。以此类推,可将窗口分为任意多个部分。

本程序在Delphi 1.0和2.0下调试通过。

附录:源程序split.pas

unit Split;

interface

uses

SysUtils

WinTypes

WinProcs

Messages

Classes

Graphics

Controls

Forms

Dialogs

ExtCtrls;

type {定义分隔线控件类}

TSpliter = class(TPanel) {TSpliter类从Tpanel类继承}

private {定义私有变量和方法}

FForm: TForm; {分隔线所在的窗口变量}

FSplitControl

FSizeTarget: Tcontrol; {分隔线及要改变的目标控件变量}

FVertical: Boolean; {分隔线方向变量}

FSplit: TPoint; {分隔线坐标变量}

FAOwner: TComponent; {分隔线的拥有者变量}

procedure GetComponents; {获得分隔线和目标实例}

function GetSizing: Boolean; {判断分隔线状态}

procedure DrawSizingLine; {画分隔线阴影}

public {定义公共方法}

constructor Create(AOwner: TComponent);override; {构造函数}

procedure BeginSizing; {移动前初始化}

procedure ChangeSizing(X

Y: Integer); {改变分隔线位置}

procedure EndSizing; {终止移动}

property Sizing: Boolean read GetSizing; {分隔线是否可移动属性}

procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X

Y:Integer); Override; {按下鼠标事件}

procedure MouseMove(Shift: TShiftState; X

Y: Integer);override; {移动鼠

标事件}

procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X

Y: Integer);override; {弹起鼠标事件}

end;

procedure Register; {控件注册}

implementation

constructor TSpliter.Create(AOwner: TComponent);

begin

inherited Create(AOwner);

FAOwner := AOwner;

FForm:= TForm(FAOwner); {定义分隔线所在的窗口类}

end;

function CToC(C1

C2: TControl; P: TPoint): TPoint; {转换分隔线坐标函数}

begin

Result := C1.ScreenToClient(C2.ClientToScreen(P)); {将分隔线坐标转化为窗

口坐标}

end;

function TSpliter.GetSizing: Boolean;

begin

Result := FSplitControl <> nil; {是否获得了分隔线变量}

end;

procedure TSpliter.DrawSizingLine;

var P: TPoint;

begin

P := CToC(FForm

FSplitControl

FSplit);

with FForm.Canvas do begin

MoveTo(P.X

P.Y);

if FVertical then {若为上下移动的分隔线,画横向阴影线}

LineTo(CToC(FForm

FSplitControl

Point(FSplitControl.Width

0)).X

P.Y)

else {否则}

LineTo(P.X

CToC(FForm

FSplitControl

Point(0

FSplitControl.Height)

).Y) {画竖直的阴影线}

end;

end;

procedure TSpliter.BeginSizing;

begin

GetComponents;

SetCaptureControl(FSplitControl); {使分隔线可接受鼠标事件}

if FVertical then {获得分隔线的坐标}

FSplit := Point(0

FSplitControl.Top) else

FSplit := Point(FSplitControl.Left

0);

FForm.Canvas.Handle := GetDCEx(FForm.Handle

0

DCX_CACHE or

DCX_CLIPSIBLINGS

or DCX_LOCKWINDOWUPDATE); {取窗口句柄}

with FForm.Canvas do begin {设置画笔状态模式}

Pen.Color := clWhite;

if FVertical then

Pen.Width := FSplitControl.Height else

Pen.Width := FSplitControl.Width;

Pen.Mode := pmXOR;

end;

DrawSizingLine;

end;

procedure TSpliter.ChangeSizing(X

Y: Integer);

begin

DrawSizingLine;

if FVertical then FSplit.Y := Y else FSplit.X := X; {移动分隔线位置}

DrawSizingLine;

end;

procedure TSpliter.EndSizing;

var

DC: HDC;

P: TPoint;

begin

DrawSizingLine;

P := CToC(FSizeTarget

FSplitControl

FSplit); {将分隔线坐标转化为目标控

件坐标}

SetCaptureControl(nil); {将可接收鼠标事件的控件置空}

FSplitControl := nil; {分隔线对象指向空}

with FForm do begin

DC := Canvas.Handle;

Canvas.Handle := 0;

ReleaseDC(Handle

DC); {释放窗口句柄}

end;

if FVertical then begin {若为上下移动的分隔线}

if P.Y >= FSizeTarget.Parent.Height then Exit {若分隔线超过窗口高度退出}

else FSizeTarget.Height := P.Y; {否则改变目标高度}

end

else begin

if P.X >= FSizeTarget.Parent.Width then Exit {若分隔线超过窗口宽度退出}

else FSizeTarget.Width:= P.X; {否则改变目标宽度}

end;

end;

procedure TSpliter.MouseDown(Button: TMouseButton; Shift: TShiftState;

X

Y: Integer);

begin

inherited MouseDown(Button

Shift

X

Y); {继承原方法}

if (Button = mbLeft) and (Shift = [ssLeft]) then BeginSizing; {判断鼠标按

键,开始移动}

end;

procedure TSpliter.MouseMove(Shift: TShiftState; X

Y: Integer);

begin

inherited MouseMove(Shift

X

Y);

if Sizing then ChangeSizing(X

Y);

end;

procedure TSpliter.MouseUp(Button: TMouseButton; Shift: TShiftState;X

Y: Integer);

begin

inherited MouseUp(Button

Shift

X

Y);

if Sizing then EndSizing; {若获得分隔线对象,结束移动}

end;

procedure TSpliter.GetComponents;

var I: Integer;

begin

FSplitControl:= GetCaptureControl; {获得窗口中的分隔线对象}

FVertical := FSplitControl.Width > FSplitControl.Height;

if not FVertical then begin {若为横向分隔线}

for I:= 0 to FSplitControl.Parent.ControlCount-1 do {在分隔线所在的控件上

搜寻与它相邻的控件}

begin

if (FSplitControl <> FSplitControl.Parent.Controls[I]) and

(FSplitControl.Left - FSplitControl.Parent.Controls[I].Width >= 0) and

(FSplitControl.Left - FSplitControl.Parent.Controls[I].Width < 8) then

begin

FSizeTarget:= TControl(FSplitControl.Parent.Controls[I]); {获得目标控件}

Break; {跳出循环}

end

end;

end

else begin {若为纵向分隔线}

for I:= 0 to FSplitControl.Parent.ControlCount-1 do begin

if (FSplitControl <> FSplitControl.Parent.Controls[I]) and

(FSplitControl.Top - FSplitControl.Parent.Controls[I].Height >= 0) and

(FSplitControl.Top - FSplitControl.Parent.Controls[I].Height < 8) then

begin

FSizeTarget:= TControl(FSplitControl.Parent.Controls[I]);

Break;

end;

end;

end;

end;

procedure Register;

begin

RegisterComponents('Samples'

[TSpliter]); {将分隔线控件注册到Sample控件

列表中}

end;

end.

一周消息树:从程序员到架构师的方法与逻辑 【CTO俱乐部走进海尔】海尔的转型探索之路 十一问MongoDB CTO,谈NoSQL人气王的扩展、事务及运维 腾讯“创业•密码”开发者论坛 ChinaJoy引爆创业者关注 从F1赛车到智能手机,无线充电技术之崛起 助力梦想!MDCC免费为优秀App开发团队提供展位 为Symfony2和Redis正名,基于PHP的10亿请求/周网站打造 【聚焦API】教你如何选择最适合的NLP API服务商? 直接改应用!Flipboard开源iOS应用内调试工具FLEX 专访腾讯游戏运营总经理崔晓春:云时代游戏运营的变革与创新 嵌入式专家Bruce Douglass经验谈 门票销售过半 从2014微信开发者大会购票者特征说起 当来自金星的Devs碰上火星的Ops——共话应用扩展 移动平台市场占有率:Android首次赶超iOS 豌豆荚范怀宇 I/O大会总结:Android无处不在 轻博客始祖Tumblr:哈希以支撑2.3万Blog请求/秒 《近匠》FIR.im:简单易用的内测分发工具 传苹果公司将于9月9日召开新一代iPhone发布会 近百家微信开发商参与征集评选活动 TOP10正浮出水面 Java程序猿,手游引擎怎么选? MDCC 2014优秀移动团队免费展位火热申请中 【微信讲师面对面】你在企业服务号开发中遇到的坑和难点 五个解决方案让MongoDB拥有RDBMS的鲁棒性事务 浅谈Apache Spark的6个发光点 安卓 “假ID” 签名漏洞,竟然骗过了支付宝和360 从Social到Big Data,移动App蚂蜂窝转型推新品 《近匠》nice曹大鹏,从男装导购到潮人社区的心路历程 DevOps扼杀的不是开发者,而是开发生产力! 利用Docker构建开发环境 Netflix公布Cassandra新性能:基于AWS的百万次写入每秒 一周消息树:谷歌Android遭遇“颠覆”危机 一个很有趣的问题,但是比较难哟,高手请进,一定给分!!!! 请问war是什么文件? 用LOTUS SCRIPT怎么样对修改一个文档中域的值?有没有代码? 各位,哪里有design patterns下载呀? 打印问题有谁能解决 十万火急,兄弟们过来帮帮忙........... 多字段模糊查询~~~谁会啊!! 高手请进 关于dialog和控件回车键消息处理的小问题 photoshop背景色的问题 虚函数能否做友元? const^:^ *********在dll文件中怎样打开一个窗口********* 自定义对话框 求解:怎样使用数据窗口能多页预览?有这项功能吗? 域的DNS有问题! 出现out of range 只是偶尔出现并不是经常出现?我的配置在里面 想问问大家关于微软认证的看法。 我有光驱上哪找 请问斑竹:c#中有类似exit(0)之类的函数吗, 请问谁有将可执行文件中的资源提取出来保存在新的rc文件中的源代码? PB数据库的连接分类解决问题? 数据窗口鼠标焦点为什么会遗失? 怎么用xp安装盘升级两千或酒吧下的wmp? 怎样得知ListBox中已经有多少项内容了? 看看大家关于微软认证的看法(只能给77,全给了) OFFICE XP以及金山词霸的漂亮菜单如何实现的??有源代码可以参考吗?? 谁能说一下"快手"的程序是怎么工作的啊 这个问题我都问了三遍了,还是没人帮忙回答一下? 这样怎么能不行了?怪了. ~散分哦~,哈~ 可怜的准初级程序员(水平的没过,竟然拿了个资历格的) 各位兄弟请了!一个远程接入问题邀请教各位~! 这个问题好象不难 如何在WIN NT4中安装、使用IIS4????? no pains,no gains. work for the beautiful girl here and for our beautiful life 各位大侠: 我是新手,有人能给我讲讲xmlspy吗?? win.ini与SYSTEM.INI的区别? Oracle 的产品真的很烂吗?参与者都有分! 现需开发一套对多个数据库(不是一个数据库中的多个表)进行操作的程序,使用BDE,请大家提建议 CPen的问题! 各位请教:我要通过电话线做多路远程接入但我不想用路由器 请问,使用ado控件的程序,考到其他机器上,除了数据库和应用程序之外,还需要拷贝什么文件? 部分技术超过OFFICE 国产软件挑战微软 关于子窗口 请教:uninstall onflow.exe和wcmdmgr.exe是什么软件? DataSet如何定位记录. lius_lzc(小刘)你好。请来这 高程成绩 不是高手不要进来!!!!!!!!!!!!! 那位大侠能说一下快手的原理啊,有源码最好???????????????? 橡胶的硬度在70-80度,请问要用哪种材料,请具体说明material must be kind of rubber with hardness of 70shorA to 80shoreA是做耳机用的,要求防水. 延性和展性是什么概念 物理性质的硬度、延展性是什么?请举例说明、谢谢叻 哪种材料硬度足够且容易与橡胶分开 延性展性有什么不同 请问,哪个牌号的铝,硬度最低,延展性最好?我想加工一些直径5毫米,厚度2毫米的铝片,并把这个片填到体积相当的小坑里,通过锤击,让铝片充满这个坑,所以需要硬度低,延展性好的铝, 关于橡胶材料选用!有哪种橡胶材料,是耐磨,耐氧化,耐油(润滑油)~? 保定那有卖化工原料洗涤的AES 6501 刷墙的白水泥有什么作用? AES冬天不好溶解?AES冬天抱团了,如果用热水溶解很容易,但要烧热水比较麻烦,如果先把片碱放在水中溶解(会放出大量的热),然后将AES再放到碱液中,这样做可以吗?为什么?那么一般溶解AES需 把两块塑料板比如PVC板粘在一起用什么胶好要求一是粘的非常牢固;二是要有充分的时间干,就是在一块板上涂上胶水后,至少5分钟以内胶水都还是湿的,不要像502那样一出来马上就干;三要价 白水泥带有什么作用 502可以用来粘塑料吗?RT,我不小心把女朋友送给我的塑料玩偶摔碎了,我很心疼,想把他们粘起来,用502可以吗?或者说要用其他的胶水?我的那个塑料玩偶有点硬,看上去有点像陶瓷的,可是摔碎后 EVA热熔胶是否溶于水中?如何将EVA热熔胶溶于水中配置成溶液,我把胶棒放水80度水中时,变成一团糊状物,并不溶,我需要EVA热熔胶粉末,细度在500UM最好.细一些,和胶水混用,呵呵,可以不? 什么是“延展性”?(比如金能制成很薄的金箔,说明金的延展性好.) AES怎样就可以完全溶解到水里了?需要加些什么? 请问国内主要的EVA树脂热熔胶代理商有哪些?例如:韩国现代、法国阿托菲纳、日本三井、北京有机厂等等牌号的,要有实力的代理商! 什么叫延展性 木板上粘了502胶水怎么办 请问注塑机中的射胶一段、二段等等,还有保压、位置,各阶段有什么意义,起到什么效果?还有缩水,银丝等问 黄金的延展性最好,1克金可以拉长多少米? 如何溶解AES 注塑机的射胶设定中的位置是什么意思啊 黄金有很好的延展性,经过现代工艺加工,一克纯金可拉成多少米长的细丝? 表面活性剂AES在多少温度下分解? 如何调注塑机工艺参数(如何设锁模,射胶的速度,压力,位置等等),为什么?各位大侠师傅,传授点实际的经验(如牙膏架),现在我拿到产品很茫然,不知输多少(有没有计算公式什么的)?不用 什么东西含砷成分 橡胶的硬度怎样降 关于金属的延性与展性~金属的延性、展性~它们有什么区别吗? 怎样设置注塑机的三段射胶位置和五段射胶位置?保压的时间怎样设置? 根据括号中给出的不同词义造句.-------韧性(坚韧的性格)速度. 哪些金属延性好,展性却很差? (急)注塑机 熔胶不止 射胶不到设置的位置注塑机 熔胶不止射胶不到设置的位置~ 污水处理厂的生物池有什么作用 延性好的金属是否展性就一定好?我看到书上介绍一种金属富于延性,展性不好?不明白是怎么一回事. 为什么氯化钠晶体性脆,金刚石坚硬但脆,而金属铁 铜会有延展性 请问污水处理厂超越管的作用,如何布置? 化学物品AES、AEO是什么东西~希望可以详细一点 A橡胶B纸张C塑料D银E指南针F水G汞H金刚石I肥皂K玻璃·密度最大的是 比热容最大的是 弹性最好的是 延展性最 污水处理厂和垃圾填买场的具体作用是什么!写个材料.涉及到污水处理和垃圾填埋!想知道这两个东西的具体作用是什么.!知道的告诉下.谢谢了 aes是什么原料 1.注塑机射胶压力不够 污水处理厂生化是分为三级吗?每级的作用是什么? AES是什么药品 注塑机射胶压力太高什么原因 污水处理厂排放最重要的两个指标 aes是什么化工原料 震德注塑机中的射胶速度和压力上下调动有什么作用压力80改为速度35 请问专家:橡胶的硬度为80RHD是啥意思? 塑料材料的环保要求是哪些 什么是白水泥?白水泥用途是什么?白水泥品牌有哪些? 污水处理用的药剂是指?深圳.自然绿环保? 塑料泡沫是环保材料吗? 金属导电靠的是内部大量的( )的( )移动导电的 有几种橡胶原料可以调硬度的 延性和展性有什么区别 物体导电性.牛奶、巧克力、水晶是易导电物体吗? 为了保护环境,某化工企业决定购买10台污水处理设备现有A和B两种型号设备,其中每台价格及月处理污水量如表所示A型 B型 价格(万元/台) 15 12 处理污水量(吨/月) 250 220 经预算,该企业准 延性和展性不同么?为什么有人说延性最好的金属是铂展性最好的金属是金那这么说延展性最好的金属是铂金么? 怎样能把注塑机速度调快一点,速度和压力,射胶,溶胶,开模的数字越大是越快吗?
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn