PopupMenu如何动态的产生Submenu呀？

Question

各位大侠：PopupMenu如何动态的产生Submenu呀？谢谢！

Answer 1

var
  MyMenuItem: TMenuItem;
begin
  MyMenuItem := TMenuItem.Create(Nil);
  MyMenuItem.Caption := 'casdfasd';
  PopupMenu1.Items[0].Add(MyMenuItem);
end;

Answer 2

该Summenu的单击事件该怎样写呀？谢谢!

Answer 3

var
  MyMenuItem: TMenuItem;
begin
  MyMenuItem := TMenuItem.Create(Nil);
  MyMenuItem.Caption := 'casdfasd';
  MyMenuItem.tag:=1;//如果产生了很多菜单的化，用tag来区分是单击哪一个
  MyMenuItem.onclick:=menuClick;
  PopupMenu1.Items[0].Add(MyMenuItem);
end;
procedure TForm1.menuClick(Sender: TObject);  //在Form类中声明该过程
begin
  if TMenuItem(Sender).tag=1 then  
    begin
      //加入你的事件
    end;
end;