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
- procedure THzqGrid.MenuClickEvent(Sender: TObject);
- var
- TempTag: Smallint;
- TempValue: WideString;
- begin
- TempTag := 1;
- TempValue:=WideString('test');
- if FEvents <> nil then FEvents.OnMenuClick(TempTag,TempValue);
- end;
5.
- <SCRIPT LANGUAGE="JavaScript" EVENT="OnMenuClick(Item,Value1)" FOR="grid">
- alert(Item+':'+Value1);
- </SCRIPT>