delphi 如何实现 Activex 的事件？

[roczhao1107]

有个activeX 控件，里面有个OnCHK(ID:string) 事件。当调用 ACTIVEX 中 ONCLICK 事件的时候，他就会激活OnCHK(ID:string) 事件，并且返回ID的值。现在的问题是，我如何调用得到这个事件，得到ID，并在Onchk 中写自己的处理过程？

[chenzhuo]

delphi应该也一样,你安装了这个控件了吗?把他拖到窗口,在Object Inspector的Events里应该
可以看到这个事件,然后双击进去就行了.

[roczhao1107]

各位没人知道吗？在 VB里面 AddHandler axCZKEM1.OnCHK, AddressOf AxCZKEM1_OnCHK 和

Private Sub AxCZKEM1_OnCHK(ByVal id As string)
lbRTShow.Items.Add("RTEvent OnHIDNum Has been Triggered...")
lbRTShow.Items.Add("...Cardnumber=" & id.ToString())
End Sub

就可以获得事件和ID，并可以自己处理该事件，请问DELPHI 中如何实现它？