如何在HTML中给ActiveX传递参数？？？(100分)

***原控件(Delphi ActiveX)***
...
published
property ButtonCaption:string read GetButtonCaption
write SetButtonCaption;
...
function TActiveFormX.GetButtonCaption:string;
begin
Result:=Button1.Caption;
end;

procedure TActiveFormX.SetButtonCaption(const Value:string);
begin
Button1.Caption:=Value;
end;
...


***HTML调用****
<OBJECT
Classid="clsid:2F390484-1C7D-11D0-8908-00A0C90395F4"
id="obj"
codebase="Login.cab#version=1,0,0,0"
>
</OBJECT>

<SCRIPT LANGUAGE="VBScript">
s=obj.ButtonCaption '没有效果，没有任何信息取出
showmessage=s
</SCRIPT>
*****************
最好给小弟个例子，小弟智商有限，谢了先。

留下EMAIL

ButtonCaption没有对外接口吧

<SCRIPT LANGUAGE="VBScript">
s=obj.ButtonCaption() '没有效果，没有任何信息取出
showmessage=s
</SCRIPT>

你应该在ActiveFormProj1.tlb单元里加上buttoncaption属性

to wind28
我的E_Mail：jyh_jack@qingdaonews.com