添加方法和添加属性的过程差不多，只是这里要选择Mothod
在name中输入sayHello,点击刷新，Delphi为我们自动添加了方法的声明
procedure sayHello; safecall;
现在我们写些代码，实些这个方法
procedure TAFHello.sayHello;
begin
ShowMessage(Fname+'您好！');
end;
编译成功后，修改html文件，调用这个方法．
<HTML>
<H1> Delphi 7 ActiveX Test Page </H1><p>
You should see your Delphi 7 forms or controls embedded in the form below.
<HR><center><P>
<OBJECT
ID="test1"
classid="clsid:326812BB-4215-4C44-8E4F-96377AB92FFE"
codebase="./AFHelloProj1.ocx#version=1,0,0,3"
width=350
height=250
align=center
hspace=0
vspace=0
>
<PARAM NAME="name" VALUE="朱颂东">
</OBJECT>
<script language=vbscript>
test1.SayHello()
</SCRIPT>
</HTML>
首先必须为ocx控件定义一个ＩＤ，这里是ID="test1"，然后用VBS脚本调用，调用的方法是
<script language=vbscript>
test1.SayHello()
</SCRIPT>
保存html后，在浏览器中加载html文件，看看效果吧.
当打开网页的时候就会弹出一个对话框，修改name属性的值，对话框也会做相应的改变！
101
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
