建立TDate组件
作者：互联网
当我们已经理解属性跟事件后，下一步就需要探讨下组件。透过把TDate类别转换为组件来简单的了解下这个主题。
首先，必须从TComponent类别来衍生出我们的新类别，这里不再从TObject来衍生了。
type
TDate=class(TComponent)
...
public
constructor Create(AOwner:TComponent);overload;override;
constructor Create(y,m,d:Integer);reintroduce;overload;
end;
帮这个类别加入一个建构函数，把默认的组件建构函数重载，以提供一个合适的数据初始化。因为有一个多载的版本，也需要为它用上reintroduce这个关键词，以避免编译程序显示警告讯息。新的建构函数就简单的设定了今天的日期，在呼叫基础类别的构建函数之后：
constructor TDate.Create(AOwner:TComponent);
var
Y,D,M:Word;
begin
inherited Create(AOwner);
//today..
fDate:=Date;
end;
完成到这里之后，需要在撰写这个新的组件类别的单元文件里面，加入一个名为Register的过程，这个过程的第一个字母R务必大写，以免它被误认。加入这个过程则是IDE要新增一个组件的规范。简单的宣告这个过程，它不需要任何参数，在这个单元文件的interface区段宣告，然后再于implementation区段里面撰写程序代码：
procedure Register;
begin
RegisterComponents('Sample',[TDate]);
end;
这个程序代码把新的组件加入到工具盘的Sample分页当中，如果当时没有这个分页，系统就会自动新增这个分页。
最后一个步骤就是把这个写好的组件安装好，我们得建立一个套件（Package）,这是一种特殊的项目，专门用来安装组件用的。只需要先点选IDE的File->New->other menu选单项目，打开新增项目的对话窗口，然后选择Package.
在新建的套件项目中，看Project Manager这个画面，在内容节点上点击鼠标右键，然后为这个项目加入一个新的单元文件，当然就是把刚刚制作好的TDate组件类别的文件加入。
再次在Project Manager画面上用鼠标右键点击套件项目，先选取里面的Build选单项目，建置整个 套件，然后再选取鼠标右键选单中的Install,就可以把我们刚刚写好的TDate当成一个组件安装到IDE的工具盘了。
标签：这个,建立,Create,TDate,类别,TComponent,组件 来源： https://www.cnblogs.com/AP0606436/p/15862764.html