|
nbsp; if Assigned(FTimeOut) then
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] 下一页
没有相关教程
| 
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
