vc开发的activex中的事件在delphi中无法正常使用？

Question

vc开发的activex中的事件在delphi中无法正常使用？
提供建议，方向正确即有分，正确解决200分。

Answer 1

这个ActiveX在网页中，在VB中都能正常使用。

Answer 2

写出 在VB中的声明、调用 以及DELPHI中的声明、调用

Answer 3

1、JavaScript中调用：（其中wordp为对象ID）
<script for='wordp' event='QueryDocClose()'>  
  
alert("Event QueryDocClose got called!");  
  
</script>2、vb.net中
  Friend WithEvents ActiveX1 As ACTIVEXLib.ActiveX
  Private Sub InitializeComponent()
        Me.ActiveX1 = New ACTIVEXLib.ActiveX()
  End Sub  事件处理:
  Private Sub ActiveX1_QueryDocClose(ByVal sender As System.Object, ByVal e As ACTIVEXLib._IActiveXEvents_QueryDocCloseEvent)
        MsgBox("event！")
    End Sub
3、Delphi中
uses     ACTIVEXLib_TLB;Type
   ActiveX1: TActiveX;

Answer 4

1、JavaScript中调用：（其中wordp为对象ID）
<script for='wordp' event='QueryDocClose()'>  
  
alert("Event QueryDocClose got called!");  
  
</script>2、vb.net中
  Friend WithEvents ActiveX1 As ACTIVEXLib.ActiveX
  Private Sub InitializeComponent()
        Me.ActiveX1 = New ACTIVEXLib.ActiveX()
  End Sub  事件处理:
  Private Sub ActiveX1_QueryDocClose(ByVal sender As System.Object, ByVal e As ACTIVEXLib._IActiveXEvents_QueryDocCloseEvent)
        MsgBox("event！")
    End Sub
3、Delphi中
uses     ACTIVEXLib_TLB;Type
   ActiveX1: TActiveX;