ActiveX form的简单问题!!!!!!!!!!!!!!!!!!!!!!!

[autocar]

我在一个ActiveX form 工程中

在菜单中 -> edit -> add to interface

然后在 interface 下拉框中选 Events-leventEvents

在 Declaration 中 输入 procedure g(var i :integer); 声明了带一个参数事件过程


但不知道如何引发该事件????


例如:

当变量 i 大于 50 时 就引发 上面定义的事件 并将 i 作为 事件的参数


部分代码如下:

//按下activex控件的按钮

procedure TActiveFormX.Button1Click(Sender: TObject);


begin
//如果I大于50就激发G()事件

if i > 50 then
g(i)
else
i:=i+1;


end;


但在编译时报错,说g(i)没有定义 ,

但type library里在IActiveFormXEvents项中可以看见g事件过程,参数也正确


请各位高手帮忙解决,谢谢!!!!!!!