怎么样动态给popupmenu添加菜单！

Question

请关注下面帖子
http://www.csdn.net/expert/topic/757/757974.xml?temp=.9828455var
T : TMenuItem;
begin
T:=TMenuItem.Create(PopupMenu1);
T.Caption:='2';
PopupMenu1.Items.Add(T);
end;

Answer 1

请关注下面帖子
http://www.csdn.net/expert/topic/757/757974.xml?temp=.9828455var
T : TMenuItem;
begin
T:=TMenuItem.Create(self);
T.Caption:='2';//添加你需要的名字 呵呵~~~~~~~
PopupMenu1.Items.Add(T);
end;

Answer 2

在设计程序时,有时我们需要动态地创建菜单, 通常我们使用以下的语句 
    PopupMenu1 := TPopupMenu.Create(Self);
    Item := TMenuItem.Create(PopupMenu1);
    Item.Caption := 'First Menu';
    Item.OnClick := MenuItem1Click;
    PopupMenu1.Items.Add(Item);
    Item := TMenuItem.Create(PopupMenu1);
    Item.Caption := 'Second Menu';
    Item.OnClick := MenuItem2Click;
    PopupMenu1.Items.Add(Item);
    Item := TMenuItem.Create(PopupMenu1);
    Item.Caption := 'Third Menu';
    Item.OnClick := MenuItem3Click;
    PopupMenu1.Items.Add(Item);    Item := TMenuItem.Create(PopupMenu1);
    Item.Caption := '-';
    PopupMenu1.Items.Add(Item);
    Item := TMenuItem.Create(PopupMenu1);
    Item.Caption := 'Fourth Menu';
    Item.OnClick := MenuItem4Click;
    PopupMenu1.Items.Add(Item);
   其实我们可以使用一种更快的方法达到同样的功能, 但使用很少的代码, 那就是用NewLine和NewItem, 看看下面的例子, 是不是很简单?
    PopupMenu1 := TPopupMenu.Create(Self);
    with PopUpMenu1.Items do
      begin
        Add(NewItem('First Menu',0,False,True,MenuItem1Click,0,'MenuItem1'));
        Add(NewItem('Second Menu',0,False,True,MenuItem2Click,0,'MenuItem2'));
        Add(NewItem('Third Menu',0,False,True,MenuItem3Click,0,'MenuItem3'));
        Add(NewLine);                         // 增加一个分割棒
        Add(NewItem('Fourth Menu',0,False,True,MenuItem4Click,0,'MenuItem4')); 

Answer 3

var
  abc:Tmenuitem;
begin
  abc:=Tmenuitem.Create(popupmenu1);
  abc.Caption:='ffff';
  popupmenu1.Items.Items[0].add(abc);//加到第二级菜单上
end;