如何在VB中使用Delphi的控件

用过Delphi的编程爱好者都知道，Delphi中的可视化组件库(VCL)中有大量的组件，尤其是第三方设计的VCL，如Ahm系列、LMD系列、VenusPro等。在程序中恰当的使用它们，会让你的程序在界面或者功能上更加丰富多彩，这让很多VB爱好者垂涎三尺，因为毕竟免费且功能强大的ActiveX控件太少了。这篇文章是为到处寻找控件的VB爱好者写的。
-为了方便起见，以Delphi4中Samples标签下的ColorGrid组件为例，描述如何将ColorGrid导出到ActiveX控件中。
-1。打开delphi4，运行文件->新建，弹出NewItems对话框。点击“ActiveX”选项卡，选择ActivexControl，然后选择“确定”
-2。在出现的ActiveX控件向导对话框中，有以下选项:
-VCL类名:选择要导出或继承的VCL组件(注意，未被TwinControl继承的VCL不再列表中，我们稍后再讨论)，选择tcolor grid
-新建ActiveX名称:要导出的ActiveX控件名称。就取ColorGridX的默认值
-实现单元:实现单元，取默认名称
-项目名称:所创建项目的名称，取默认名称
-线程模型:线程模式。详见Delphi帮助。这里取公寓的默认值
-包含设计时许可:是否包含许可信息
-包含关于框:是否包含“关于”对话框
-包含版本信息:是否包含版本信息
-点击“确定”，此时Delphi为我们创建了三个文件:
-库文件colorgridxcontrol 1
-实现单元colorgridimpl 1
-类型文件colorgridxcontrol1 _ TLB...\ color grid control1.ocx ' "

-这里，ColorGridXControl1.ocx是你需要的颜色选择控件。
-用现在的VB6测试一下:
-1。新建一个VB6项目，选择菜单“项目->零件”，在出现的对话框中选择ColorGridXControl1库，选择“确定”。
-2。将控件ColorGridX放在Form1上，并采用默认名称“ColorGridX1”。
-3。如何使用它的属性和方法:以选中的颜色为例，在其OnClick事件中添加监视器ColorGridX1，发现其property对象返回一个对Delphi控件的引用，ForegroundColor属性的值代表选中的颜色。虽然在“ColorGridX1”之后没有代码提示。Object”时，仍然可以使用colorgridx1 . object . foreground .
-如果想改进这个控件，在输入“color gridx 1”后直接得到ForegroundColor的属性提示，您必须在Delphi中手动添加ColorGridX的属性/方法。步骤如下:
-1。选择实现单元ColorGridImpl1，选择“编辑->添加到接口”，在出现的对话框声明中填写“属性前景化颜色:整数”，选择“确定”。然后Delphi自动为你添加两个进程框架:
procedure t color gridx . set forecolor(值:整数)；
函数TColorGridX。GetForeColor:Integer；
2。在Get_ForeColor中添加代码
result:= fdelphicontrol . foreground color；
由于ColorGrid的ForegroundColor
属性是只读的，因此不需要编写Set_ForeColor过程。

-3、编译执行，运行->注册ActiveX服务器，会出现注册成功的消息。到了VB，你会发现控件ColorGridX增加了ForeColor属性，代表选中的颜色值。
-以此类推，可以添加其他有用的属性供VB等显式调用。这样TWinControl继承的大部分组件都可以导出，那么非TWinControl组件和未列出的组件怎么导出呢？且看下文。
-如前所述，在创建ActiveX控件时，在ActiveX控件向导对话框的VCLClassName下拉列表中找不到要导出的VCL组件。这是因为这个组件不是由TwinControl继承的，而是属于“无窗口”类型。这时我们可以用ActiceForm的形式导出，以第三方控件TColorPickerButton为例:
-1。选择菜单“文件->新建”，在出现的“新建项目”对话框中选择“ActiveX”选项卡，然后选择ActiveXForm。选择“确定”
-2。在出现的“ActiveForm向导”的“新建ActiveX名称”中填写输出控件名称“ColorPicker”，选择“确定”
-3。将TColorPickerButton组件放置在Delphi为我们创建的表单上。名称为“ColorPickerButton1”，将窗体调整到合适的大小，选择菜单“编辑->添加到界面”，添加属性:Property SelectColor:integer，选择“确定”
-4。在Delphi提供的框架里写一个类似的代码:
-读取颜色:
函数tcolor picker。GetSelectColor:integer；
begin
result:= color picker button 1。
selection color；
end；
设置颜色:
proceduretcolorpicker . setselectcolor(值:整数)；