如何动态生成弹出菜单的子菜单？

Question

想生成这样的弹出菜单（PopupMenu1)：
M1>n1
   n2
   n3   
M2>i1
   i2
....
M1，M2是弹出菜单PopupMenu1的菜单项
n1,n2,n3是M1的子菜单项，i1，i2是M2的子菜单项谢谢！

Answer 1

每一个菜单都是一个TMenuItem对象啊
只要动态生成TMenuItem对象就是了
比如：定义tmpItem : TMenuItem;
使用如下的方法就可以生成菜单
  tmpItem:= TMenuItem.Create(Self);
  tmpItem.Name:='这里定义菜单的name，注意要唯一';
  tmpItem.Caption:='定义菜单的caption';
  tmpItem.OnClick:=定义菜单的事件;
定义完成后，使用父菜单的add()方法（还有一批类似的方法）就可以附加这个菜单了，如M1.add(tmpItem)
不知明白了否

Answer 2

直接用PopMenu控件不就行了吗？