popupmenu 动态创建问题
一个popupmenu1里面有 插入，修改，删除，上移，下移几项。我想在插入这个项里新建立一个动态的下拉列表submenu,然后动态吧 1-100 打进去，该怎么做呢
[解决办法]
[code=Delphi(Pascal)][/code]
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;
