事件与函数的关联

Question

有一个tmenuitem控件，要把它onclick事件与我写的函数myfunciton（i : integer）:integer；相关联，不能用对象观察器，只能用函数代码写出来，因为这个
tmenuitem控件是运行时才创建的

Answer 1

只要里面的参数相同就行了
private
   procedure mymenuclick(sender:TObject);
.....
   Self.N1Click := MyMenuClick;

Answer 2

只要myfunction与onclick函数类型一致，直接付值即可。

Answer 3

你必须再写一个函数，和上面各位说的一样声明的时候和onclick的函数声明相同，在这个函数里调用你的myfunction
procedure myclick(sender:tobject);
begin
  myfunciton((Sender as tcomponent).tag);
end;
然后在代码里将这个函数赋给你的click事件
menuitem1.onclik:=myclick;