写个ActiveX不知道在网页里怎让传参数

新建一个Active Form
在 private 下添加
    sno:String;
    procedure setSno(ss:String);在 public 下添加 属性abc
    property abc:String read sno write setSno;在 implementation 在添加
procedure TfsC.setSno(ss:String);
begin
  sno:=ss;
end;在一个按钮   
procedure TfsC.Button1Click(Sender: TObject);
begin
showmessage('||'+sno);
end;在网页中调用
<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
  classid="clsid:6B0FD0F3-6F50-4F5E-A7B6-E22603427D3C"
  codebase="http://localhost:8080/fsCProj1.ocx#version=1,0,0,0"
  width=350
  height=250
  align=center
  hspace=0
  vspace=0
>
<param name="abc" value="ssss">
</OBJECT>
</HTML>点按钮只显示 ||  我想应该显示 ||ssss 
是哪出错呀？？

解决方案 »

  1.   

    可以给控件增加一个属性，用外部数据来控制控件里的数据。
        菜单--Viwe--type Library--可以看到Form的属性
        增加属性：
        New proporty（注意是图标）--Name：属性的名字(sno)。
        如果是可读写的，就有两个属性函数，一个是Get，另一个是Set。
        刷新（Refresh Implementation）后在 单元里可以看到两个get函数和set过程，把相应的程序写进去。
        function TShowtime.Get_sno: Integer;
        begin
            //...
        end;
        procedure TShowtime.Set_sno(Value: Integer);
        begin
            //...
        end;
    然后就可以了使用传进来的参数了
      

  2.   

    按照你的做法，在set的方法里会报找不到sno
      

  3.   

    严重关注楼主的问题。照jollyant(快乐蚂蚁)的试了一下。不行的。
      

  4.   

    <param name="abc" value="ssss">多加一行这个
    好象第一行的参数就是读不到，郁闷