接下来要动手来做一个组件了,我想了一个计数器组件,功能方面是比较简单的,但这不是本章的重点,这一章的重点是说明一个组件的制作全过程。在其中可以学到很多组件制作的技巧,当然这些也是我从书上学得的。好了,开始制作吧:
<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />
这是一个可以计数的组件,为了简单,我以秒为单位,当开始时,他就从0开始增加,并显示出来,到3600时,它又回到0,如此循环。当然它也可以停止,暂停,继续。另外,他还有一个时间事件,即可以设定每隔多少时间来触发这个事件,这倒是一个好的功能,我们可以设半个小时触发事件,在事件处理函数中来一个声音,然后睡个觉,半个小时后,就由这个声音来提醒你起床了。
我们一开始不要新建组件单元,而是把它当成一个工程中的一个类来应用,这样更易于调试,于是我们新建一个工程,又新建一个空白单元用于放置这个类
一,确定父类:
接下来给这个类起名叫TTimeCount,那么它的父类应该是什么呢,它要能显示出来,得有一个容量来让他显示,TPanel是个不错的选择,我看了一下源码,发觉TPanel什么也没有做,只是把它的父类TCustomPanel的属性显化出来(这个等一下讲),TCustomPanel把好多的属性声明为Protected,为他的子类提供了选择,他的子类如果要使这些属性能在对象察看器中看到,可以在Published重新声明一下,如果不想,则不用去理会他。而我们的计数器组件正好不用那么多属性,正好合适。于是我决定用TCusomPanel为父类
类建立如下:
TTimeCount=class(TCustomPanel)
private
protected
public
published
end;
二,确定成员,方法和属性和事件
FCount; 只读私有成员,保存计数值
FActive:Boolean; /确定是否发生类的时间间隔事件
FInterval:TInterval; 这个可以设置时间事件触发间隔,本来用整型值会好一些,但会了学习起见,这里用了一个枚举形的,在Type中声明如下:
TInterval=(TenM,TwentyM,ThirtyM,FortyM,FiftyM,SixtyM);
分别表示十分钟到六十分钟。
TimeLen,TimeNum:integer;这两个用在类的时间事件发生的确定上,与外界隔绝。
FTimeOut:TNotifyEvent;时间间隔事件的方法指针,通过调度方法实现他与外部的处理函数关联。
我们要它能以秒为单位来计数,则要涉及到时间的应用,所以就有了这个最重要的成员:
FTimer:TTimer;
这个成员对象要在类构造函数中实例化它,并赋与他的属性值,还要在析构函数在释放它。
如下:
//构造函数,继承父类的构造函数,并初始化类中的成员。
constructor TTimeCount.Create(AOwner:TComponent);
//创建时间控件并设置相关的参数
procedure CreateTimer;
begin
FTimer:=TTimer.Create(self);
FTimer.Enabled:=False;
FTimer.Interval:=1000;
FTimer.OnTimer:=FTimerTimer;
end;
begin
inherited Create(AOwner);
CreateTimer;
end;
//析构函数,先释放时间控件,再继承父类的析构函数
destructor TTimeCount.Destroy;
begin
FTimer.Free;
inherited Destroy;
end;
构造函数中还要设置该组件的外观和默认值,这里把它删去,到源代码再贴出来。
其中
FTimerTimer;是很重要的函数,在该类中有声明:
procedure FTimerTimer(Sender:Tobject);//时间控件的事件处理函数
在这个处理函数中,实现了计数值的递增并显示到容器中,此外,还在判断类的时间事件是否有足够条件触发了,如果有则调用DoTimeOut;过程,这个就是事件的调度函数啦:
//事件调度函数,将外部的事件处理函数和该类的事件方法指针联系起来
procedure TTimeCount.DoTimeOut;
begin
if Assigned(FTimeOut) then
FTimeOut(Self);
end;
而属性则是根据私有成员来设定了:
public
property Count:Integer read FCount default 0; //计数值的只读属性,这个属性不能声明在Published中,因为它是只读的,只在程序运行时通过它来得到计数值。
published
property Interval:TInterval read FInterval write SetInterval Default TenM;
property Active:boolean read FActive write SetActive default false;
property OnTimeOut:TNotifyEvent read FTimeOut write FTimeOut;
此外还有几个自定义方法即
procedure pause; //暂停计数
procedure Resume;//从暂停的计数开始计数。
procedure stop;//停止
procedure start;//开始计数
都比较简单。
三,父类属性的显化:
TCustomPanel及其父类有好多的属性设为Protected,使其子类可以有更灵活的选择,是否把这些属性显示到对象察看器中,如果想,则到Published中重新声明这些属性就可以,我参考了一下TPanel的源码,并按需要选择了其中的一些属性声明到Published中,注意哦,事件也是属性,只要你把它显化出来,就可以设置处理事件了。
四.以下是计数组件的源码,相信有了上面的讲解,应该不会很难了:
unit CountUnit;
interface
uses
SysUtils,Classes,Graphics,Controls,ExtCtrls;
type
//用于设置时间事件发生的间隔
TInterval=(TenM,TwentyM,ThirtyM,FortyM,FiftyM,SixtyM);
TTimeCount=class(TCustomPanel)
private
FTimer:TTimer;
FCount:integer; //只读私有成员,计数值
FInterval:TInterval; //时间事件发生的间隔
FActive:Boolean; //决定是否发生间隔事件
TimeLen:Integer;//发生事件的时间长度,以秒为单位。
TimeNum:integer;//计数值,和TimeLen一起有用,以判断是否事件该发生了
FTimeOut:TNotifyEvent;//事件的方法指针
procedure SetInterval(I:TInterval);
procedure SetActive(A:boolean);
procedure FTimerTimer(Sender:Tobject);//时间控件的事件处理函数
protected
procedure DoTimeOut;dynamic; //调度方法,用于关联事件。
public
procedure pause; //暂停计数
procedure Resume;//从暂停的计数开始计数。
procedure stop;//停止
procedure start;//开始计数
constructor Create(AOwner:TComponent);override;
destructor Destroy;override;
property Count:Integer read FCount; //计数值的只读属性
published
property Interval:TInterval read FInterval write SetInterval Default TenM;
property Active:boolean read FActive write SetActive default false;
property OnTimeOut:TNotifyEvent read FTimeOut write FTimeOut;
//显式祖先类的一些属性在对象察看器中
property BevelInner;
property BevelOuter;
property BevelWidth;
property Color;
property Font;
property PopupMenu;
property ShowHint;
property TabOrder;
property TabStop;
property Visible;
property OnClick;
property OnDblClick;
property OnMouseDown;
property OnMouseMove;
property OnMouseUp;
end;
implementation
//构造函数,继承父类的构造函数,并初始化类中的成员。
constructor TTimeCount.Create(AOwner:TComponent);
//创建时间控件并设置相关的参数
procedure CreateTimer;
begin
FTimer:=TTimer.Create(self);
FTimer.Enabled:=False;
FTimer.Interval:=1000;
FTimer.OnTimer:=FTimerTimer;
end;
//以下是设置外观的
procedure setView;
begin
Width:=100;
Height:=50;
Color:=$000000;
Font.Color:=$FFFFFF;
Font.Size:=14;
Font.Style:=[fsBold,fsUnderline];;
BevelOuter := bvLowered ;
Caption:='0';
end;
begin
inherited Create(AOwner);
FCount:=0;
FInterval:=TenM;
FActive:=False;
TimeLen:=600;//十分钟,六百秒
TimeNum:=0;
CreateTimer;
setView;
end;
//析构函数,先释放时间控件,再继承父类的析构函数
destructor TTimeCount.Destroy;
begin
FTimer.Free;
inherited Destroy;
end;
//设置时间事件发生间隔,财时要赋相应的间隔秒数
procedure TTimeCount.SetInterval(I:TInterval);
begin
if FInterval<>I then
begin
FInterval:=I;
case FInterval of
TenM: TimeLen:=600;
TwentyM:TimeLen:=1200;
ThirtyM: TimeLen:=1800;
FortyM: TimeLen:=2400;
FiftyM:TimeLen:=3000;
SixtyM:TimeLen:=3600;
end;
end;
end;
procedure TTimeCount.SetActive(A:boolean);
begin
if FActive<>A then
begin
FActive:=A;
TimeNum:=0;
end;
end;
procedure TTimeCount.pause;
begin
if FTimer.Enabled then
FTimer.Enabled:=False;
end;
procedure TTimeCount.Resume;
begin
if not FTimer.Enabled then
FTimer.Enabled:=True;
end;
procedure TTimeCount.stop;
begin
FTimer.Enabled:=False;
FCount:=0;
TimeNum:=0;
caption:='0'
end;
procedure TTimeCount.start;
begin
if (not FTimer.Enabled)and(TimeNum=0) then
FTimer.Enabled:=True;
end;
//最重要的时间函数,用于调用该类的事件触发高度函数。
//以及在容器中显示计数值
procedure TTimeCount.FTimerTimer(Sender:TObject);
begin
inc(FCount);
if (FCount mod 3600)=0 then FCount:=0;
Caption:=InttoStr(FCount);//这个就是显示计数值
inc(TimeNum);
if (TimeNum=TimeLen)and(FActive) then
begin
DoTimeOut;
TimeNum:=0;
end;
end;
//事件调度函数,将外部的事件处理函数和该类的事件方法指针联系起来
procedure TTimeCount.DoTimeOut;
begin
if Assigned(FTimeOut) then
FTimeOut(Self);
end;
end.
五,组件注册安装与删除。
组件类编写完毕,接着就要测试了,这个从略,可以在刚才的工程中动态创建它,设置相应属性,指定时间事件,看看是否正确。上面是经过测试的。
到确定正确后,就要来看看装组件的步骤了:
首先,我们要把组件单元放在一个指定的文件夹中,以便以后管理,和IDE统一指定路径。
我在Delphi目录下新建了MyCom文件夹,用来存放组件单元
然后选:
Component—>New Component;
启动Component Wizard
在Ancestor type(父类):中填TCustomPanel
Class Name(你的组件类名)中填:TimeCount
Palette Page,默认为Samples,我就用这个吧,当然也可以自己创建一个。
Unit File Name(组件类所在的单元名),就写TimeCount吧。
Search Path(搜索路径),必须把上面所建的文件夹路径包含进去,编译时才能能过。
点击旁边的”…”按钮,出现一个对话框,里面的编辑框旁边又有一个”…“按钮,点击它出现浏览文件夹框,在其中选中上面建的文件夹的路径,点确定,再点OK,回去New Component;。
这时再点下面的OK就行啦,出现代码如下:
unit TimeCount;
interface
uses
messages, SysUtils,Classes,Graphics,Controls,ExtCtrls;
type
TTimeCount=class(TCustomPanel)
private
published
public
published
end;
procedure Register;
implementation
procedure Register;
begin
RegisterComponents('Samples', [TTimeCount]); //注册控件用的函数,自动帮你生成
end;
end.
这时再把上面的组件类替换掉这个类就行啦(当然上面的注册函数可要保留呀)。然后保存到上面所建的文件夹中。
接着就要安装组件了,点Component->install Component
对话框中第一项Unit file Name,是组件单元.pas文件的路径名字。其他只要按缺省。
记得第三项的。。\delphi7\Lib\dclusr.dpk,这个就是存放组件的包名,等一下删除组件时用到的
接下来点OK,就可以了,看看Samples是不是有了一个新组件啦。
不过面板上的组件图标似乎不好看,应该给他一个新的图标了:
但之前应该把它先从面板删除,File->Open…打开dclusr.dpk.
选中其中的Contains下的TimeCount.pas,点上面的Remove。将其删除
然后再点Compile,重新将包编译一次。就行啦。Samples上的新组件就消失了。
接下来是做组件图标:
打开Image Eidtor,新建一个DCR文件,在其中建一个24×24的位图,画上你喜欢的图标,将位图的名字起为组件类名一样,而且用大写,即:TTIMECOUNT
将DCR文件起名为组件类所在单元名一样,而且大写,即:TIMECOUNT。
保存文件到单元所在的文件夹中,
最后依上面的方法再装一次,看是不是有一个漂亮的图标啦
六,讲完了,大家应该有一个清楚的概念了吧,其中涉及到了好多的技巧。在以后的篇章中将不再讲这些内容了,只把主要精力花在组件实现技术上。因为我们这个组件还是比较简单,没有涉及到多少高级的主题。但没有关系,跟着我慢慢地做下来,你们会了解组件制作的方方面面的。
分享到:
相关推荐
网站头广告排制作 意想不到的一个东西,很好用的一个组件
幕墙构件及组件的加工制作记录.pdf
一个为TailwindCSSUI组件制作的开源网站。在这里我们可以找到几乎所有使用tailwindCSS制作的UI组件,这些组件
一个非常详细的delphi制作com+组件的过程,可以帮助学习
C#中串口组件的使用方法总结及上位机制作方法,写的很详细。
添加SerialPort组件 设置串口属性 串口操作(打开关闭) private void btn_open_Click(object sender, EventArgs e) { if (btn_open.Text == "打开串口") { btn_open.Text = "关闭串口"; serialPort1.Open(); }...
关于DELPHI中自定义组件的制作方法介绍
制作Android天气预报的组件:日期组件和天气组件源码,我把Android中的一个天气组件和一个日期组件写在了一个VIEW组件中,我自己觉得用着挺方便,可以在用的时候,直接拖放到你的项目中。本实例包的源码是一个包括了...
c#界面制作组件
编写一个封装一元二次方程的类,然后再编写一个窗口,要求窗口使用三个文本框和一个文本区,在文本框中分别输入方程的各项系数,在文本区中显示各个根
com组件生成;VC调用com组件;MFC
2、编写一个简单的以DLL形式展现的Com组件 3、通过 VBS 实现跨语言调用COM 1、Com组件概念及原理 什么是COM: 引用百度百科:COM component(COM组件)是微软公司为了计算机工业的软件生产更加符合人类的...
控制面板组件(cpl)制作工具.修改系统属性工具、
1、文件夹A下用COM的向导制作了一个不可视的object,制作了最简单的函数,最后打包成dll文件。 2、利用regsvr32注册了这个dll。 3、文件夹B下用ole方式调用这个dll,并调用里面的方法,测试正常。 注意要点:经过...
axure扁平化组件,提供基础的网页原型制作组件,样式优美,组件丰富,刚刚好不杂乱
用过delphi的肯定知道,数量繁多的第三方组件俨然成为了delphi的一大亮点,但花样繁多的组件格式却成为了新手们头疼的一个问题,拿到一个组件不知如何安装,安装过程频繁出错,使许多新手望而止步。本文档从最基本的...
关于Dreamweaver ASp 互动网页设计的一些组件,我也找了很久才找到的哦
XP Embedded 驱动组件制作教程,图解。非常简便易行的方法
joomla 代码制作组件 此组件让您轻松 制作属于您自己的joomla 模块
用delphi文本型组件制作的小小简单的计算器,但是功能还不是特别的完善,希望有高人帮忙做完全!谢了