在程序运行时，动态地向Memu中添加五个菜单命令，那如何给它们量身定做事件（点击事件）

Question

我只知道如何加入命令，但不知如何给它们创建事件，
请高手以代码举例

Answer 1

你在动态创建菜单的时候加入tag属性，然后你就可以这样做
case ((sender as TMenuItem).Tag of 
   0:YourClick(Self);
   1:MyClick(Self);
   ...
   end;

Answer 2

呵呵，我也知道，不知来不来得及拿分。
你就在动态创建的菜单的onclick赋值
onclick:=myprocedure
这个myprocedure是你写的响应函数的函数名。
还有，这个MYprocedure可以共享的，就是几个菜单都可以用，然后你在菜单创建时记得给TAG一个植，然后你就可以在同一个响应函数里处理不同的菜单了。
当然你也可以分开处理。

Answer 3

这和其它的控件加事件不是一样的吗？
建后再给它的onclick 事件一个你定义好了的procedure 不就可以了吗？