实践第二步——动手做

先启动Delphi6，选择File菜单下的New|Other...在New Items中选“Package”，起个好名字，把 它存好，这是封装组件的包文件。



图2：新的包从这里添加

　　再它的Package界面上点Add按钮，弹出的Add对话框中选New Component页面，在Ancestor type中选TLabel [QstdCtrls]，ClassName为TTouchLabel， Palette Page 是你要把它放在哪一个组件板上，可以自己指定一个新的噢。在 Unit file name 中指定好文件名（存好啊）。点OK，在Package中就可以看到这个.pas文件了，它就是我们一会儿要添加的CLX 控件。再ADD 一个， Ancestor type选TLabel [StdCtrls]，文件名不要起重，其它一样，这就是VCL组件。



图3：添加新控件——注意“Ancestor type”，那是组件的父类，也就是你要从哪个类派生出你自己的新控件。
然后双击你所要编辑的文件，把代码对应着填进去，就可以Compile了。没什么问题的话，点击Install安装，成功后会有提示信息告诉你，有哪些组件安装成功了。记着在Tools菜单选Environment Options， 再选Library页，在Library Path和Browsing path中Add 进你的代码所保存的目录。这样你就可以使用刚刚加入的组件了。

　　其实，还有一个方法，把我的代码保存为.pas文件，在Add组件时，选Add Unit页， 把文件加进来就可以了。



图4：你也可以省点事

　　通过这次实践，我们应当会对Delphi6的组件管理、消息体系、CLX构架有所了解。现在高手之路已经在你的脚下了。成为真正的高手的一个障碍，你已经跨了过去，恭喜你！



图5：我自己的组件板，你也会有的