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是不是有了一个新组件啦。

 不过面板上的组件图标似乎不好看，应该给他一个新的图标了：

上一页  [1] [2] [3] [4] [5]  下一页