delphi 2009 创建OCX 与JS传参例子
2009-03-24 14:38
274 查看
delphi2009中创建一个简单的OCX控件例子
一,创建工程
从File-New-orher-ActiveX-ActiveXLibrary后,会创建一个类型库的project1.DLL工程
这时只要再加入一个ActiveForm,IDE自动将工程转成了project1.ocx
在ActiveForm中拉入一个edit和一个button,名字默认即可.编辑Type Library,加入一个edtText属性
在ActiveForm中编辑Get_edtText和Set_edtText的加上以下实现代码
function Ttest.Get_edtText: WideString;
begin
Result:=Self.Edit1.Text;
end;
procedure Ttest.Set_edtText(const Value: WideString);
begin
Self.Edit1.Text:=Value;
end;
保存编译通过就算完成了!
二,调试
在Rrn菜单中Parameters中Host application=C:/Program Files/Internet Explorer/iexplore.exe
在Parameters加入你要调试的HTML页的地址如http://localhost/test/ActiveFormProj1.htm
JS传参
var myobj=document.getElementById("ocxtype");//ocxtype为ActiveX对象在HTML中的ID
myobj.edtText=document.getElementById("edt1").value;
取参数
t2.value=myobj.edtText;
下载Demo例子:http://download.csdn.net/detail/cml2030/1139716/
三,效果如图
一,创建工程
从File-New-orher-ActiveX-ActiveXLibrary后,会创建一个类型库的project1.DLL工程
这时只要再加入一个ActiveForm,IDE自动将工程转成了project1.ocx
在ActiveForm中拉入一个edit和一个button,名字默认即可.编辑Type Library,加入一个edtText属性
在ActiveForm中编辑Get_edtText和Set_edtText的加上以下实现代码
function Ttest.Get_edtText: WideString;
begin
Result:=Self.Edit1.Text;
end;
procedure Ttest.Set_edtText(const Value: WideString);
begin
Self.Edit1.Text:=Value;
end;
保存编译通过就算完成了!
二,调试
在Rrn菜单中Parameters中Host application=C:/Program Files/Internet Explorer/iexplore.exe
在Parameters加入你要调试的HTML页的地址如http://localhost/test/ActiveFormProj1.htm
JS传参
var myobj=document.getElementById("ocxtype");//ocxtype为ActiveX对象在HTML中的ID
myobj.edtText=document.getElementById("edt1").value;
取参数
t2.value=myobj.edtText;
下载Demo例子:http://download.csdn.net/detail/cml2030/1139716/
三,效果如图
相关文章推荐
- delphi 2009 创建OCX 与JS传参例子
- Vue.js父与子组件之间传参 父向子组件传参 例子:App.vue为父,引入componetA组件之后,则可以在template中使用标签(注意驼峰写法要改成componet-a写法,因为ht
- js 自己试验 创建对象例子
- js动态创建表格,删除行列的小例子
- JS - 动态创建2维数组Array (例子源码)
- js基础例子动态创建table实例
- 一个理解js动态创建节点并注册事件及传递参数的例子
- 动态创建表格js文件,javascript,Ajax,DHTML动态实现表格的创建,动态读取XML中的文件,读取dom节点的例子。
- JS中使用Array函数shift和pop创建可忽略参数的例子
- 第2章-使用Express.js4创建Node.js的Web应用程序-2.4.手动创建Express.js4中的Hello World例子
- js实现动态创建txt框。今天学生问此问题,做个小例子,大家也说说还有什么实现的方法。
- JS调用Delphi编写的OCX控件
- chart.js 最新版 (曲线图) 创建例子
- JS中使用Array函数shift和pop创建可忽略参数的例子
- JS动态创建DIV例子
- js动态创建表格,删除行列的小例子
- js DOM节点的创建、插入、删除、查找、替换例子
- js动态创建表格,删除行列的小例子
- JS调用Delphi编写的OCX控件
- js操作创建和操作外部样式的例子