popupmenu 动态创建问题

Question

一个popupmenu1里面有 插入，修改，删除，上移，下移几项。我想在插入这个项里新建立一个动态的下拉列表submenu,然后动态吧 1-100 打进去，该怎么做呢

Answer 1

var
  i: Integer;
  pMenuItem, tmpMenuItem: TMenuItem;begin
  for i:=0 to popupmenu1.Items.Count-1 do
  begin
    if popupmenu1.Items[i].Caption = '插入' then
    begin
      pMenuItem := popupmenu1.Items[i];
      break;
    end;
  end;
  for i:=0 to 100 do
  begin
    tmpMenuItem := TMenuItem.Create(Self);
    tmpMenuItem.Caption := IntToStr(i);
    pMenuItem.Add(tmpMenuItem);
  end;
end;