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/

三,效果如图