|
在这篇文章中我们将建立一个和时间有关的组件这个组件通过设置它的不同状态有以下基本功能显示系统的当前时间（包括设置闹钟）跑表倒计时这是一个简单的例子然而我们将在这个例子中尽可能多的用到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; 三添加组件图标注册组件的属性类别 在前面的文章中我们已经完成了组件的基本功能的开发但是遗憾的是一但你安装了组件包你会发现组件显示在delphi组件页中的图标并不能清楚的说明我们组件的功能（由于我们的组件继承自TcustomLabel图标是一个默认的delphiVCL的图标如果组件继承自其它已经出现在组件面板中的组件图标还会和已有组件一样！）显然一个好的组件特别是一个要发布的商业化组件需要一个有自己特色的目标下面我们便来完成这一工作 打开delphi自带的Image Editor（ToolsàImage Editor）新建一个组件资源（fileànewàComponent Resource File (dcr)）在弹出的窗口中右键单击new新建一个bitmap位图资源调整好位图的大小（我们用*）和色深后确定双击建立好的位图名字还是做图（做图工具的使用基本和windows自带的画图程序差不多这里略过）完成后我们需要为位图文件另取一个名字（右键点击bitmap）因为delphi强制要求这个位图的名字要和组件的名字一样并且要全部大写这里我们就取为TCLOCK最后保存这个资源文件到我们的组件包（dpk文件）目录命名为ClockDcrdcr最后在Clock的代码中的interface部分加入一个编译器开关{$R ClockDcrdcr}然后重新编译更新组件（还记得怎么更新吗？）这时的组件图标已经变成我们刚才做的位图了！ 接下来我们将为我们开发的组件的属性进行分类并介绍一个组件开发中重要的特性属性类别 为了让我们组件的一些和时钟有关的属性注册成一个新的类别把它们和label的属性分开开来让组件用户能够更容易的发现组件的新特性我们继承了属性类别的基类TpropertyCategory（在delphi中这需要引用单元DsgnIntf不过应该特别注意在delphi中已经没有了这个基类也没有这个单元文件注册新的属性类别可以通过直接使用RegisterPropertyInCategory这种简单的办法完成在下面的代码中会在相应的地方同时给出两种方法并说明他们的不同）并覆盖它的两个类方法最后在Register过程中用RegisterPropertyInCategory（在delphi中在DsgnIntf单元在delphi中在DesignIntf单元注意delphi的一些单元并没有被安装包括我们这里指出的这两个单元和将要在后文中指出的单元这些单元属于delphi的open tools api是用来方便我们特别是组件开发者用来扩展delphi如果你的delphi没有这些单元请将delphi安装目录下的source文件夹里ToolsAPI文件夹中的pas文件拷贝到lib目录下在你第一个需要用到这些单元的程序编译时delphi会自动编译这些单元）方法注册属性类别我们把以下的部分代码补充进我们开发的组件的原代码中 uses DesignIntf;//delphi//delphi用DsgnIntf ///////////这部分代码如果是delphi就不需要了/////////////// type TClockGategory=class(TpropertyCategory)//建立一个新的属性类别 Class function Name:string;override;//属性类别的名称 Class function Description:string;override;//属性类别的描述 End; …… Class function TClockGategory Name:string; Begin Result:=ClockPro; End; Class function TClockGategory Description:string; Begin Result:=Our Component Clock Description; End; //////////////////////////////////////////////////////////////////////////////////// 接下来我们要做的就是修改register过程 procedure Register; begin RegisterComponents(ClockAndTime [TClock]); ////////////这是delphi的代码///////////////////////////// RegisterPropertyInCategory(ClockProTClockState); RegisterPropertyInCategory(ClockProTClockActive); RegisterPropertyInCategory(ClockProTClockBeginTime); RegisterPropertyInCategory(ClockProTClockWakeTime); RegisterPropertyInCategory(ClockProTClockAllowWake); RegisterPropertyInCategory(ClockProTClockOnWakeUp); RegisterPropertyInCategory(ClockProTClockOnTimeUp); ////////////////////////////////////////////////////////// ///////////////这是delphi的代码///////////////////////// { RegisterPropertyInCategory(TClockGategoryTClockState); RegisterPropertyInCategory(TClockGategoryTClockActive); RegisterPropertyInCategory(TClockGategoryTClockBeginTime); RegisterPropertyInCategory(TClockGategoryTClockWakeTime); RegisterPropertyInCategory(TClockGategoryTClockAllowWake); RegisterPropertyInCategory(TClockGategoryTClockOnWakeUp); RegisterPropertyInCategory(TClockGategoryTClockOnTimeUp); } //////////////////////////////////////////////////////// end; 重新编译后做一个测试程序这时只要组件使用者右键单击Object Inspector选择ArrangeàBy Category就可以看到属性已经被清楚的分类了 然而应该清楚的是属性类别绝对不能被滥用因为过多的使用该技术会使组件使用者为了找到某一个属性变的更加麻烦和摸不着头脑 在接下来的文章里我们将继续研究两个很有用的组件特性 四组件属性编辑器和组件编辑器通过上面的努力我们的组件似乎已经比较完美了可我们也忽略了一些重要的细节和一些有趣的事情这一篇我们将研究两个很有用的组件特性 在之前开发组件核心功能时我们曾设置了两个属性BeginTime和WakeTime他们都是字符串型的属性然而他们所要表示的却是时间类型这样就很有可能使组件使用者错误的编辑属性并导致转化字符串到时间时出错（当然这里只是为了文章的讲解我们故意把它设置为了字符串类型）虽然通过浏览原代码你知道我们也做了一些代码级别的防出错处理使当输入错误时属性自动变成::然而这对组件使用者来讲仍然显的很不友好所以我们需要为这两个属性定制编辑器我们的编辑器将弹出一个窗口里面有一个TdateTimePicker用来选择时间在delphi中有许多这样的例子例如大家都知道的lines属性当你单击它右放的省略号时为自动弹出一个文本编辑器来编辑lines这大大降低了组件使用者范错误的可能性 在定制完属性编辑器以后我们将为组件本身加入一写有趣的元素——组件编辑器这也是在delphi中经常出现的例如有些组件当你双击它时它并不会进入代码编写状态而是弹出它自己的编辑器虽然我们的组件似乎并不需要这种特性但为了演示它我们也将它考虑近来我们给我们的组件编写了一个版权信息和一个关于对话框当组件使用者双击它时弹出关于信息（当然这仅仅是种演示）上面提到的两种特性由于它们只是会在设计时起作用所以你完全可以在新的组件包中编写并注册它们并将这个组件包设置为Designtime Only为了方便起见我们就直接把它们和组件的单元编写在一起注意以下出现的一些类和方法都需要引用单元DesignEditors（delphi）或DsgnIntf（delphi）与前面说的一样它们都属于delphi的open tools api所以如果你没有这写单元请按照前文的方法安装它们 首先来编写属性编辑器由于BeginTime和WakeTime是字符串类型所以我们必须从默认的字符串属性编辑器类TstringProperty继承并覆盖它的一写方法（这里只介绍几个重要的方法事实上所有的属性编辑器都从TpropertyEditor继承而来然而我们不用直接继承这个基类）其中一个重要的方法是GetAttributes他将返回一些代表编辑器功能的值这些值将会在代码的注释中说明（如果你的属性编辑器还需要一个下拉列表你还需要另外一个重要的方法GetValues具体请查看delphi帮助）另外为了使属性编辑器为弹出的对话框我们需要覆盖Edit方法为了可以以可视化的方式设计对话框我们可以建立一个普通工程在设计好后将窗体的类声明复制到我们的组件单元并将窗体的dfm文件拷贝到我们的组件包目录并在代码中加入编译器开关{$R *dfm}以下是窗体的类声明这个窗体没有任何的代码需要编写 TTimeEditFrm = class(TForm) DateTimePicker: TDateTimePicker; Button: TButton; Button: TButton; private { Private declarations } public { Public declarations } end; 以下是属性编辑器的代码 TClockProperty=class(TStringProperty) public function GetAttributes:TPropertyAttributes;override; procedure Edit;override; end; 实现部分 procedure TClockPropertyEdit; var TimeEditFrm:TTimeEditFrm; begin TimeEditFrm:=TTimeEditFrmCreate(Application); try TimeEditFrmDateTimePickerTime:=StrToTime(GetValue); if TimeEditFrmShowModal=mrOK then SetValue(TimeToStr(TimeEditFrmDateTimePickerTime)); //GetValue和SetValue是TStringProperty的基类方法他直接读取和设置字符串的值 finally TimeEditFrmFree; end; end; function TClockPropertyGetAttributes: TPropertyAttributes; begin result:=[paDialogpaMultiselect]; //paDialog表示属性编辑器将显示一个对话框paMulitiselect允许多个组件选择属性 //除此之外如果你想让属性编辑器显示下拉列表你还需要paValueList具体请查看帮助 end; 最后我们用RegisterPropertyEditor方法注册属性编辑器: procedure Register; begin …… RegisterPropertyEditor(TypeInfo(string)TClockBeginTimeTClockProperty); RegisterPropertyEditor(TypeInfo(string)TClockWakeTimeTClockProperty); end; 重新编译更新组件后我们就可以测试了 接下来我们来实现组件编辑器 组件编辑器需要继承TcomponentEditor并覆盖一些重要的方法GetVerbCount返回设计时组件右键自定义菜单的数目GetVerb为每一个自定义菜单添加文字ExecuteVerb为每一个菜单项添加事件Edit为组件的缺省操作指定事件（即在设计时双击组件）以下是代码 TClockEditor=class(TComponentEditor) public function GetVerbCount:integer;override; function GetVerb(index:integer):string;override; procedure ExecuteVerb(index:integer);override; procedure Edit;override; end; 实现部分 procedure TClockEditorEdit; begin ExecuteVerb(); //默认显示关于 end; procedure TClockEditorExecuteVerb(index: integer); begin case index of //第一个显示名字的菜单什么都不做显示 :showmessage(hkbarton@); end; end; function TClockEditorGetVerb(index: integer): string; begin case index of :result:=hkbarton; :result:=About Clock; end; end; function TClockEditorGetVerbCount: integer; begin result:=;//我们显示两条菜单一个我的名字一个关于 end; 同样最后我们注册组件编辑器 procedure Register; begin …… RegisterComponentEditor(TClockTClockEditor); end; |
