求助如何在加载ocx控件显示一个进度条

大家好，最近用delphi做了一个ocx的activeX界面，但是比较大，把这个ocx压缩成cab压缩文件还是比较大，想在这个cab加载的时候在外面显示一个进度条来让人家不认为是死掉啊，不知怎样实现比较好，那个htm调用ocx的语句是这样的啊，谢谢大家，<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:62C75BF3-380C-4C18-AD0A-7CB065D9BDFB"
  codebase="./Project1.inf"
  width=1024
  height=768
  align=center
  hspace=0
  vspace=0
>
</OBJECT>
</HTML>project1.inf里面是这样写的;Delphi-generated INF file for Project1.ocx
[Add.Code]
Project1.ocx=Project1.ocx
midas.dll=midas.dll[Project1.ocx]
file=./Project1.cab
clsid={62C75BF3-380C-4C18-AD0A-7CB065D9BDFB}
RegisterServer=yes
FileVersion=1,0,44,0[midas.dll]
file=./midas.cab
FileVersion=7,0,4,453不知怎样实现好呢，谢谢

解决方案 »

  1.   

    这个好像办不到（不过印象中，只有在windows xp update的那个页面有见过）
      

  2.   

    <HTML>
    <body onload="document.getElementById('a').style.display='none';document.getElementById('b').style.display='';"> 
    <div id="a">loading...</div>
    <div id="b" style="display:none">
    <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:62C75BF3-380C-4C18-AD0A-7CB065D9BDFB" 
      codebase="./Project1.inf" 
      width=1024 
      height=768 
      align=center 
      hspace=0 
      vspace=0 
    > 
    </OBJECT>
    </div> 
    </body>
    </HTML> 
    这种思路如何?
      

  3.   

    常乐兄的方法好像可以哦，效果有点达到了，不知能否在loading后面加一个假的进度条呢，比如gip会动的那种图片也好，不知思路可否行呢，谢谢
      

  4.   

    可以啊.不过直接加个图片比较省事.
    看看这个例子...http://vip.pastein.net/kanke/natineprince/ro/ItemForTask/ItemForTask.html
      

  5.   

    用一个图片转啊转啊转，同时给一个文字提示downloading, please wait......
      

  6.   

    谢谢常乐同志的回答啊，但是本人比较菜，刚才把一个图片放进去，结果那个画面加载完成了，loading的文字去掉了，但是那个图片还在转啊转，不是很懂啊，劳烦贴个修改代码好么，谢谢，<HTML>
    <body onload="document.getElementById('a').style.display='none';document.getElementById('b').style.display='';"> 
    <div id="a">loading...</div>
    <div id="b" style="display:none">
    <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:62C75BF3-380C-4C18-AD0A-7CB065D9BDFB" 
      codebase="./Project1.inf" 
      width=1024 
      height=768 
      align=center 
      hspace=0 
      vspace=0 
    > 
    </OBJECT>
    </div> 
    </body>
    </HTML> 
      

  7.   


    <HTML> 
    <body onload="document.getElementById('a').style.display='none';document.getElementById('b').style.display='';"> 
    <div id="a">
    <img src="http://vip.pastein.net/kanke/natineprince/lib/image/loading.gif" />
    <br />
    loading... 
    </div> 
    <div id="b" style="display:none"> 
    <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:62C75BF3-380C-4C18-AD0A-7CB065D9BDFB" 
      codebase="./Project1.inf" 
      width=1024 
      height=768 
      align=center 
      hspace=0 
      vspace=0 
    > 
    </OBJECT> 
    </div> 
    </body> 
    </HTML>