新建一个 ActiveXFrom 事件给网页调用

1.视图>类库  > IXXXEvents > 新方法

2.OnMenuClick 参数 item short * [in,out]  , value BSTR * [in,out]

3.进入 XXX_TLB.pas

     procedure OnMenuClick(var item: Smallint; const value : WideString); dispid 209;

    THzqGridOnMenuClick = procedure(ASender: TObject; var item: Smallint; const value : WideString) of object;
    

4

2. procedure THzqGrid.MenuClickEvent(Sender: TObject);
3. var
4.   TempTag: Smallint;
5.   TempValue: WideString;
6. begin
7.   TempTag := 1;
8.   TempValue:=WideString('test');
9.   if FEvents <> nil then FEvents.OnMenuClick(TempTag,TempValue);
10. end;

5.

1. <SCRIPT LANGUAGE="JavaScript" EVENT="OnMenuClick(Item,Value1)" FOR="grid"> 
2.     alert(Item+':'+Value1); 
3. </SCRIPT>