如何在VB中使用Delphi的控件(2)
---- 1、选中实现单元ColorGridImpl1，选菜单"Edit->Add To Interface",在出现的对话框中的Declaration填写"Property ForegroundColor:integer"，选"OK"，这时Delphi自动为你填加了两个过程框架：
procedure TColorGridX.SetForeColor(Value: Integer);
function TColorGridX.GetForeColor: Integer;
2、在Get_ForeColor中添加代码
result:=FDelphiControl.ForegroundColor;
由于ColorGrid的ForegroundColor
属性为只读，Set_ForeColor过程不用写了。
---- 3、编译执行，Run->Register ActiveX Server，会出现注册成功的信息。再到VB中，会发现控件ColorGridX新增了ForeColor属性，代表选中的颜色值。
---- 依此类推，可以增加其它有用的属性供VB等显式调用。用这种办法，可以把大多数由TWinControl继承下来的组件导出，那么非TWinControl的组件以及没有列出的组件怎么导出呢？且看下文。
---- 前面提到创建ActiveX控件时，在ActiveX Control Wizard的对话框的VCLClassName下拉列表中找不到想导出的VCL组件，这是因为该组件不是由TwinControl继承下来的，属"Windowless"那一种，这时我们可以用ActiceForm的形式把它导出来，以第三方控件TColorPickerButton为例：
---- 1、选菜单"File->New",在出现的"New Items"对话框中选择"ActiveX"标签,选中ActiveXForm,选择"OK"
---- 2、在出现的"ActiveForm Wizard"的"New ActiveX Name"中填写输出的控件名"ColorPicker",选择"OK"
---- 3、在Delphi为我们创建的窗体上放置TColorPickerButton组件，名为"ColorPickerButton1",将窗体调整到合适大小，选菜单"Edit->Add To Interface",为它添加属性：Property SelectColor:integer，选择"OK"
---- 4、在Delphi提供的框架中写下类似代码：
---- 读取颜色:
function TColorPicker.GetSelectColor: Integer;
begin
result:=ColorPickerButton1.
SelectionColor;
end;
设置颜色:
procedure TColorPicker.SetSelectColor(Value: Integer);
begin
ColorPickerButton1.SelectionColor:=Value;
end;
---- 5、编译执行，Run->Register ActiveX Server，会得到注册成功的消息。
---- 6、用前面讲述的方法在VB6下实验，获得成功。
---- 关于添加属性的两点说明：
---- 1、原形为"Property {属性/方法名}:数值类型",其中数值类型有：WordBool、WideString、Integer等
---- 2、如果出现"SafeCall function Requires a Hresult return type"的错误提示，说明你添加的属性/方法名已经存在，换个名字即可。
---- 至此，我们已经成功导出了GridColor(属TWinControl继承类)和ColorPicker(属"Windowless")，写此文仅为抛砖引玉，还有许多功能强大的"For Delphi"的第三方控件的我们可以转化，提醒一点，并不是所有的VCL组件都能转成ActiveX,如Delphi的通用对话对话框。现在我们可以制作自己的ActiveX控件而不受限制了，最大的优点在于：强大&免费!现在，你也能利用自己导出的ActiveX控件用VB写出漂亮的程序来了，而且不用担心注册号之类的困绕！ ^_^
