ActiveX form的简单问题!!!!!!!!!!!!!!!!!!!!!!!
我在一个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事件过程,参数也正确
请各位高手帮忙解决,谢谢!!!!!!!