用过Delphi的编程爱好者们都知道，Delphi中Visual Component Library(VCL)中具有大量的组件，尤其是第三方设计的VCL，如Ahm系列，LMD系列，VenusPro等，在程序中适当的使用它们会让你的程序在界面上或者功能上增色不少，这让许多VB迷们馋的掉口水，因为毕竟免费的并且功能强大的ActiveX控件太少了，本文就是为那些到处找控件的VB迷写的。

---- 　　为方便讲述，以Delphi4 中Samples 标签下的ColorGrid组件为例，描述如何将ColorGrid导出成ActiveX控件。

---- 1、打开delphi4，运行File- >New，弹出NewItems对话框，点取"ActiveX"标签，选择ActivexControl，选择"OK"

---- 2、在出现的ActiveX Control Wizard的对话框中，有如下选择：

---- VCL Class Name：选择要导出的或继承的VCL组件(注意非TwinControl继承的VCL不再列表中，之后再讨论)，选择TColorGrid

---- New Activex Name：要导出的ActiveX控件名，取默认值ColorGridX即可

---- Implementation Unit：实现单元，取缺省名称

---- Project Name：创建的工程名，取缺省名称

---- Thread Model：线程模式，详看Delphi帮助，这里取默认值Apartment（单线程）

---- Include Design-Time License：是否包含使用许可信息

---- Include About Box：是否包含"About"对话框

---- Include Version Informaion：是否包含版本信息

---- 单击"OK"，此时Delphi为我们创建了三个文件：

---- 库文件　　ColorGridXControl1

---- 实现单元　ColorGridImpl1

---- 类型文件　ColorGridXControl1_TLB

---- 3、选择菜单Run->Register ActiveX Server，会出现注册成功的信息：

"Successfully Registered ActiveX Server,
'...ColorGridControl1.ocx'"

---- 这里的ColorGridXControl1.ocx就是你所需要的颜色选取控件。
---- 现用VB6对其进行测试：

---- 1、新建一VB6工程，选取菜单"工程->部件"，在出现的对话框中选中ColorGridXControl1 Library，选"确定"。

---- 2、在窗体Form1上放置控件ColorGridX，取默认名称"ColorGridX1"。

---- 3、如何利用它的属性和方法：以获得选取颜色为例，在它的OnClick事件中添加监视ColorGridX1，发现其属性Object返回对Delphi控件的引用，ForegroundColor属性值代表选中的颜色，虽然在"ColorGridX1.Object."后没有代码提示，但仍然可以用ColorGridX1.Object.ForegroundColor可得到颜色值。

---- 如果你想完善这个控件，在键入"ColorGridX1."后直接得到ForegroundColor的属性提示，那就必须手工在Delphi中为ColorGridX填加属性/方法，步骤如下：