基于Delphi的组件设计之简单实例

1 2 下一页

接下来要动手来做一个组件了，我想了一个计数器组件，功能方面是比较简单的，但这不是本章的重点，这一章的重点是说明一个组件的制作全过程。在其中可以学到很多组件制作的技巧，当然这些也是我从书上学得的。

　　这是一个可以计数的组件，为了简单，我以秒为单位，当开始时，他就从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;//开始计数
　　都比较简单。

上一篇： 基于Delphi的组件设计之概念
下一篇： 浅述Delphi下的OpenGL图形开发

1 2 下一页

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有