delphi ocx自定义事件

小弟现需要做一个ocx,要求在ocx中的操作，直接输出到web上。类似与：这个，的调用。
  
    <html>   
  <body   onload="javascript:load()">   
    
  <form   name="frm1"   method="post">   
  时间:<input   type="text"   name="begintime"   size="10"">   
  </form>   
                  <object   id="Calendar"   classid="CLSID:8E27C92B-1264-101C-8A2F-040224009C02"   
                  width="250"   height="200"   
                  codebase="MSCAL.OCX">  
                  </object>   
    
  <script   language="JavaScript">   
  <!--     
  function   update()   
  {   
          frm1.begintime.value   =  Calendar.Day   
  }   
    
  function   load()   
  {   
          Calendar.AfterUpdate=update   
  }   
  -->   
  </script>     
  <SCRIPT   LANGUAGE=javascript   FOR=Calendar   EVENT=AfterUpdate>   
          document.frm1.begintime.value   =  Calendar.Day   
  </SCRIPT>     </body>   
  </html>   现在不明白的是，MSCAL.OCX 。AfterUpdate事件是怎么写的，急需，

解决方案 »

  1.   

    做ocx的时候公开的方法和事件可以定义的,看看ocx怎么做的吧
      

  2.   

    方法定义没有问题，只是在事件定义的时候，在工程的events 中声明了，不知道在.pas 单元怎么写，能给个简单的例子吗？
      

  3.   

    自己定义的事件怎么在Initialize 中显示调用。
      

  4.   

    新的问题，我可以用js 的事件直接调用，ocx的事件，现在不明白怎么回调，就类似我上面的列子那样，在，ocx事件中的点击事件，用js 捕获、、
      

  5.   

    你好，能给我一个简单的Demo吗？我学着用delphi修改webFTP的功能，就是在上传完毕后要触发一个事件，这样页面通过js就能捕捉到，进行数据库的相关操作 ,谢谢了