创建自己的Dephi构件

      Destructor Destroy;override;

……

Implementation

Constructor  Create(Aowner :Tcomponent);

Begin

    Inherited Create(Aowner);

FleaveTextCo

FenterTextColor:=Font.Color;

End;

Destructor  TnewLabel.Destroy;

Begin

    Inherited  Destroy;

End;

三． 结束语

        以上仅对创建Dephi构件的基本知识进行了讨论，仍有一些创建构件问题、技术未能深入探讨，对这方面问题感兴趣的Dephi使用者可进一步通过阅读有关资料提高自身创建构件的能力。

联系电话：0551—5560324   E-mail：jinlingweitao@263.net