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

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

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

　　都比较简单。