???有什么方法可以把Delphi中内带的丰富的控件导出成Active控件,在VB,VC等中使用? 同上 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 据个例子。做个DLL,导出如下函数:procedure CreateTEditBox(hParent:HWND):hwnd;stdcallbegin with TEditBox.Create(nil) do begin SetParent(Handle,hParent); Result:=Handle; end;end; 1、新建立一个OCX,从VCL类继承,比如从TPanel。 2、...... 3、Deploy 看看这篇文章,可以参看:http://www.gislab.ecnu.edu.cn/delphibbs/DispQ.asp?LID=315264 如何在VB中使用Delphi的控件 南京南自总厂开发中心 张玉洲 南京理工大学98研 王静 ---- 用过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填加属性/方法,步骤如下: ---- 1、选中实现单元 ColorGridImpl1,选菜单"Edit->Add To Interface",在出现的对话框中的Declaration填 写"Property ForegroundColor:integer",选"OK",这时Delphi自动为你填加了两个过程 框架: procedure TColorGridX.Set_ForeColor(Value: Integer);function TColorGridX. Get_ForeColor: 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.Get_SelectColor: Integer; begin result:=ColorPickerButton1.SelectionColor;end;设置颜色: procedure TColorPicker.Set_SelectColor(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的通用对话对话框。 现在我们可以制作自己的ActiveX控件而不受限制了,最大的优点在于: 强大&免费!现在,你也能利用自己导出的ActiveX控件用VB写出漂亮的程序来了, 而且不用担心注册号之类的困绕! ^_^ DateTimePicker 如何赋值 Form 创建卡死的问题 高分求救,Chart生成的曲线图,如何存成CDA文件?也就是*.DWG文件~~分不够可以加,在线等~~ 第三方控件TOLEEdit(能插入图象)为何不支持自定义的弹出菜单?郁闷! 如何读取WORD文件内容? 请教问题 用delphi来调用matcom4.5编译生成的dll文件 关于 filter 问题 请问MOV文件用什么播放? 各位帮帮忙,怎么比较数据库中两个表的差异?? ADO+SQL的客户端程序通不过共享上网的机器怎么办? 如何用WNetOpenEnum,100分,可以加分!
begin
with TEditBox.Create(nil) do
begin
SetParent(Handle,hParent);
Result:=Handle;
end;
end;
2、......
3、Deploy
如何在VB中使用Delphi的控件 南京南自总厂开发中心 张玉洲 南京理工大学98研
王静 ----
用过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填加属性/方法,步骤如下: ---- 1、选中实现单元
ColorGridImpl1,选菜单"Edit->Add To Interface",在出现的对话框中的Declaration填
写"Property ForegroundColor:integer",选"OK",这时Delphi自动为你填加了两个过程 框架: procedure TColorGridX.Set_ForeColor(Value: Integer);function TColorGridX.
Get_ForeColor: 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.Get_SelectColor: Integer; begin
result:=ColorPickerButton1.SelectionColor;end;设置颜色:
procedure TColorPicker.Set_SelectColor(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的通用对话对话框。
现在我们可以制作自己的ActiveX控件而不受限制了,最大的优点在于:
强大&免费!现在,你也能利用自己导出的ActiveX控件用VB写出漂亮的程序来了,
而且不用担心注册号之类的困绕! ^_^