如何给右键菜单的某项添加子菜单？

Question

也就是再右键菜单中实现多级菜单，我找了Tpopmenu的属性，没有找到设置的地方，是不是要通过代码来实现？谢谢！

Answer 1

右键你要加子菜单的那项，有个create submenu.................^_^

Answer 2

在delphi集成环境下可以啊，双击PopupMenu就可以弹出Menu Designer来编辑啊，通过代码也可以：
例如var
  m,n:TMenuItem;
begin
  m:=TMenuItem.Create(PopupMenu1);
  m.Caption:='1';
  popupmenu1.items.Add(m);  n:=tmenuitem.Create(popupmenu1);
  n.Caption:='11';
  m.Add(n);  m:=TMenuItem.Create(PopupMenu1);
  m.Caption:='2';
  popupmenu1.items.Add(m);
end;