Question

如何在VB中使用Delphi的控件

Answer 1

---- 为方便讲述，以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填加属性/方法，步骤如下： ---- 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;beginresult:=ColorPickerButton1. SelectionColor;end;设置颜色:procedure TColorPicker.SetSelectColor(Value: Integer);beginColorPickerButton1.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的通用对话对话框。 ^_^