这篇文章算是对我前段时间学习的一个学习总结以及对自己学习过程的一个回顾本文通过一个简单的例子来尽可能的展示VCL组件开发的各个方面本文针对即将学习组件开发的初学者如果你已经熟悉组件开发或认为本文内容过于基础简单那么本文对你毫无用处阅读本文假设你已经熟悉delphi的普通程序设计以及vcl的结构层次还有一些重要的关键字publishedproperty等(注本文内容建立在delphi及以上版本) 在这篇文章中我们将建立一个和时间有关的组件这个组件通过设置它的不同状态有以下基本功能显示系统的当前时间(包括设置闹钟)跑表倒计时 这是一个简单的例子然而我们将在这个例子中尽可能多的用到delphi在组件开发中的多种特性你可以通过以下列举出的本文涉及特性有选择的阅读 ·组件和组件包 ·组件的属性类别 ·组件的属性编辑器 ·组件编辑器 一组件和组件包以及一些你应该知道的文件类型 组件和组件包的关系就如同普通工程中unit和工程文件的关系一样通常你所安装的组件都是以组件包的形式发布的一个组件包中可以有很多个组件在组件开发中组件包就是项目的工程文件为了开始开发我们的组件(我们把他叫做TClock)并将它包括在我们自己的组件包(ClockPackage)中我们选择Fileànewàother在弹出的窗口中的New页选择Package新建一个组件包得到一个组件包窗口查看这个组件包的原文件(dpk)得到以下代码 package ClockPackage; {$R *res} {$ALIGN } {$ASSERTIONS ON} …… …… {$DESCRIPTION Our Clock Pack} {$IMPLICITBUILD OFF} requires rtl; end 这个文件其实就是组件开发中的工程文件requires关键字指示了组件包所需组件包的列表随着向组件包中加入组件(类似于单元文件)你还会看到contains关键字指示了组件包所包含的组件你可以通过组件包窗口中的add和remove按纽来添加新的组件和删除已有的组件另外这个代码中所包含的大量的编译器开关大多都可以在组件包窗体上的Options中设置这里需要补充说明的是组件包的种重要属性(都在Options中)Designtime OnlyRuntime OnlyDesigntime and runtime(这个词的意思有英语基础的朋友应该都知道吧)对于大多数的组件包我们只要选择最后一个就可以了然而有些组件包设计为只运行时(这样你用这套组件开发的程序不能脱离组件而单独运行组件包也不能被安装)有些组件包被设计为只设计时(这将在后文有更详细的说明) 了解了组件和组件包我们对组件开发中可能出现的一些你没有见过的文件做一些说明dpk文件既组件包的原代码bpl文件组件包编译后的结果在没有发布dpk的情况下可以通过bpl来安装组件包到delphi(ProjectàOptionsàPackagesàadd)pas在这里就是组件包中组件的原代码了dcu为pas编译后的结果在你选择将组件包含进组件包时(contains关键字)你可以选择发布原代码或是不发布(dcu文件)dcp如果你将组件作为运行时组件连接器将使用该文件 二开始开发组件 了解了上面的知识后我们就可以开始开发组件了!在组件窗体中单击add选择NewComponent页在第一个组合框中选择我们的组件将要继承自哪个类(通常新的组件是通过继承已有的组件来开发的)由于这个组件的主要作用是要显示时间跑表倒计时种的文字信息所以我们选择继承自TCustomLabel(由于我们并不需要Tlabel的全部功能我们选择了能够隐藏Tlabel属性并有选择的发布它的属性的TcustomLabel类)接下来为我们的新组件取一个名字Tclock然后指定我们想把组件安装到哪一个页中这里我们自己键入一个ClockAndTime页这将出现在RegisterComponents过程中(后面会详细说明)选择好文件保存的路径后(最好把它和组件dpk包放在同一目录)确认这是组件包窗体中的contains下已经多了我们刚才建立的组件的文件双击它开始编写代码 在代码中我们需要注意在interface部分的一个新的过程procedure Register;(注意delphi规定Register的R必须大写这是一个保留字)这个过程是作为每一个组件所必须有的它完成组件的注册包括组件本身以及如属性编辑器等多种组件特性的注册) procedure Register; begin RegisterComponents(ClockAndTime [TClock]); //这个过程注册组件本身注意到前面定义的ClockAndTime页了吗? //这里在后面还会出现一些新的过程包括注册组件的属性类别等等 end; 组件的代码由于假设你已经熟悉delphi开发(它和一般开发没什么不同)我们就直接贴出来并加上适当的注释 unit Clock; interface uses SysUtils Classes Controls StdCtrlsExtCtrls; type TState=(StClockStRunClockStBackClock);//定义枚举类表示控件的种状态时钟跑表倒计时钟 TClock = class(TCustomLabel) private fState:TState; fTimer:TTimer;//为什么使用这个组件作为我们组件的私有成员就不用说了吧 RCD:array[] of integer;//跑表中的各个数位 fBeginTime:string;//到计时时的开始时钟之所以没用TTime类型是为了在后面演示属性编辑器 fWakeTime:string;//闹钟时间出于和上面同样的理由 fAllowWake:boolean;//是否开启闹钟功能 fOnWakeUp:TNotifyEvent;//为了使组件更加完美我们允许组件用户能够响应闹钟到来时的时件 fOnTimeUp:TNotifyEvent;//同上能够响应倒计时种完成时的事件我们将发布这两个事件 function GetActive:boolean;//控制Timer是否工作以控制种状态的钟是否工作 procedure SetActive(Value:boolean); procedure SetState(Value:TState); procedure SetBeginTime(Value:string); procedure SetWakeTime(Value:string); protected procedure WalkClock(sender:TObject);//作为时钟时走种的事件 procedure RunClock(sender:TObject); //跑表 procedure BackClock(sender:TObject);//倒计时 public constructor Create(AOwner:TComponent);override;//完成一些初始化工作 procedure ReSetRunClock; //跑表和倒计时都需要一个复位方法给组件使用者调用 procedure ReSetBackClock; published property State:TState read fState write SetState default StClock;//默认为时钟状态 property Active:boolean read GetActive write SetActive;//控制种状态的钟是否工作 property BeginTime:string read fBeginTime write SetBeginTime; property WakeTime:string read fWakeTime write SetWakeTime; property AllowWake:boolean read fAllowWake write fAllowWake; property OnWakeUp:TNotifyEvent read fOnWakeUp write fOnWakeUp; property OnTimeUp:TNotifyEvent read fOnTimeUp write fOnTimeUp; //最后我们再发布一些被TCustomLabel所隐藏而我们又需要的属性 property Align; property Alignment; property Color; property Font; property ParentColor; property ParentFont; property ParentShowHint; property PopupMenu; property ShowHint; property Visible; property Transparent; property OnClick; end; procedure Register; implementation procedure Register; begin RegisterComponents(ClockAndTime [TClock]); end; { TClock } constructor TClockCreate(AOwner: TComponent); begin inherited Create(AOwner); //设置默认值 fTimer:=TTimerCreate(self); //将它属于我们的组件这样便不用编写析构函数而可以自动在释放本组件时释放Timer Active:=false; AllowWake:=false; State:=StClock; BeginTime:=::; WakeTime:=::; end; function TClockGetActive: boolean; begin result:=fTimerEnabled; end; procedure TClockSetActive(Value: boolean); begin fTimerEnabled:=Value; end; procedure TClockSetState(Value: TState); var i:integer; begin case Value of StClock: begin Active:=false; fTimerInterval:=; fTimerOnTimer:=WalkClock; Active:=true; end; StRunClock://由于Time类型不好处理微秒操作我们只有手工模仿这个操作代码会稍微烦琐 begin Active:=false; for i:= to do RCD[i]:=; Caption:=IntToStr(RCD[])+IntToStr(RCD[])+:+IntToStr(RCD[])+IntToStr(RCD[])+:+IntToStr(RCD[]); Caption:=Caption+IntToStr(RCD[])+:+IntToStr(RCD[])+IntToStr(RCD[]); fTimerInterval:=; //经过测试这个秒表的效果很好然而这只是一个技术上的演示 //实际上这么频繁(/秒)的不断执行RunClock会使CPU的占用一直达到% //这并不是一个好注意事实上要想在跑表中显示微秒级别并做到合理的占用CPU //这需要更加灵活和复杂的编程 fTimerOnTimer:=RunClock; end; StBackClock: begin Active:=false; Caption:=BeginTime; fTimerInterval:=; fTimerOnTimer:=BackClock; end; end; fState:=Value; end; procedure TClockSetBeginTime(Value: string); begin try StrToTime(Value); fBeginTime:=Value; if State=StBackClock then begin Active:=false; Caption:=Value; end; except on Exception do begin fBeginTime:=::; if State=StBackClock then Caption:=::; end; end; end; procedure TClockSetWakeTime(Value: string); begin try StrToTime(Value); fWakeTime:=Value; except on Exception do begin fWakeTime:=::; end; end; end; procedure TClockWalkClock(sender: TObject); begin Caption:=TimeToStr(Time); if AllowWake and (StrToTime(Caption)=StrToTime(WakeTime)) then begin Beep;//蜂鸣器 if Assigned(fOnWakeUp) then fOnWakeUp(self); end; end; procedure TClockRunClock(sender: TObject); begin RCD[]:=RCD[]+; if RCD[]= then begin RCD[]:=RCD[]+;RCD[]:=; end; if RCD[]= then begin RCD[]:=RCD[]+;RCD[]:=; end; if RCD[]= then begin RCD[]:=RCD[]+;RCD[]:=; end; if RCD[]= then begin RCD[]:=RCD[]+;RCD[]:=; end; if RCD[]= then begin RCD[]:=RCD[]+;RCD[]:=; end; if RCD[]= then begin RCD[]:=RCD[]+;RCD[]:=; end; if RCD[]= then begin RCD[]:=RCD[]+;RCD[]:=; end; if RCD[]= then RCD[]:=; //我们的跑表最多可计个小时; Caption:=IntToStr(RCD[])+IntToStr(RCD[])+:+IntToStr(RCD[])+IntToStr(RCD[])+:+IntToStr(RCD[]); Caption:=Caption+IntToStr(RCD[])+:+IntToStr(RCD[])+IntToStr(RCD[]); end; procedure TClockBackClock(sender: TObject);//可以在一天之类的时间倒计时 begin if StrToTime(Caption)<>StrToTime(::) then Caption:=TimeToStr(StrToTime(Caption)) else begin Active:=false; Beep; if Assigned(fOnTimeUp) then fOnTimeUp(self); end; end; procedure TClockReSetBackClock; var i:integer; begin if State=StRunClock then begin Active:=false; for i:= to do RCD[i]:=; Caption:=:::; end; end; procedure TClockReSetRunClock; begin if State=StBackClock then begin Active:=false;Caption:=BeginTime; end; end; end 为了测试我们的组件现在你就可以安装这个组件包并建立一个应用测试它了点击组件包窗体中的install即可(注意一但你安装了组件包当你想对组件修改时在修改了原代码以后只用点击组件窗体的compile就可以了更新组件了)这时delphi的组件页的最后多出了我们定义的页其中有了我们的组件! 然而这个组件到目前为止仍然不够完善还不能正式发布给用户在下一篇中我们将解决两个重要的问题给我们的组件添加一个默认的图标将这个组件杂乱的属性归类 |