我試過一行簡單的程式 pmtiSystemMan.Add(pmSystemMan.Items); 結果pmtiSystemMan下多了一個空白Item，之下才是pmSystemMan 請問，要如何消除那個多出來的空白Item呢？謝謝! PS.pmtiSystemMan是TPopupMenu(pmtiPBMS)的Item pmtiPBMS是用來做TrayIcon pmSystemMan是一個獨立的TPopupMenu 因pmSystemMan也可以在Form上面啟動 *********************** 跟寫程式一樣，想不出來！

http://www.lmc-mediaagentur.de/dpool/tips/0995.htm I have a menu item in a menu and would like to fill a submenu with items loaded at runtime.    

procedure TForm1.Button1Click(Sender: TObject);
var
  aItem, aSubItem: TMenuItem;
  i, j: integer;
begin
  with MenuItem1 do  {is an existing MenuItem}
  begin
    for i := 0 to 5 do
    begin
      aItem := TMenuItem.Create(MainMenu1);
      Add(aItem);
      aItem.Caption := IntToStr(i);
      for j := 0 to 5 do
      begin
        aSubItem := TMenuItem.Create(MainMenu1);
        aItem.Add(aSubItem);
        aSubItem.Caption := IntToStr(j);
        aSubItem.OnClick := MenuItemsHandler;
      end;
    end;
  end;
end;    procedure TForm1.MenuItemsHandler(Sender: TObject);
begin
  ShowMessage((Sender as TMenuItem).Caption);
end;        //Tip by Ronald van Aken

--- hagar 站直了, 別趴下!

引言: http://www.lmc-mediaagentur.de/dpool/tips/0995.htm I have a menu item in a menu and would like to fill a submenu with items loaded at runtime.

procedure TForm1.Button1Click(Sender: TObject);
var
  aItem, aSubItem: TMenuItem;
  i, j: integer;
begin
  with MenuItem1 do  {is an existing MenuItem}
  begin
    for i := 0 to 5 do
    begin
      aItem := TMenuItem.Create(MainMenu1);
      Add(aItem);
      aItem.Caption := IntToStr(i);
      for j := 0 to 5 do
      begin
        aSubItem := TMenuItem.Create(MainMenu1);
        aItem.Add(aSubItem);
        aSubItem.Caption := IntToStr(j);
        aSubItem.OnClick := MenuItemsHandler;
      end;
    end;
  end;
end;    procedure TForm1.MenuItemsHandler(Sender: TObject);
begin
  ShowMessage((Sender as TMenuItem).Caption);
end;        //Tip by Ronald van Aken

--- hagar 站直了, 別趴下!

動態新增MenuItem我知道 我也試過用迴圈 i:=0; while i<=pmSystemMan.Items.Count-1 do begin pmtiSystemMan.Add(pmSystemMan.Items.Items[i]); inc(i); end; 結果出現錯誤訊息 Menu Insert twice 而pmtiSystemMan上面什麼也沒有新增 ********************************** 做簽名檔就跟寫程式一樣，想不出來！

引言: 動態新增MenuItem我知道 我也試過用迴圈 i:=0; while i<=pmSystemMan.Items.Count-1 do begin pmtiSystemMan.Add(pmSystemMan.Items.Items[i]); inc(i); end; 結果出現錯誤訊息 Menu Insert twice 而pmtiSystemMan上面什麼也沒有新增 ********************************** 做簽名檔就跟寫程式一樣，想不出來！

我現在只能用另一種方式了, 就是刪去pmtiPBMS上原來要加入的menuitem 然後在pmtiPBMS上新增 pmtiPBMS.Items.NewBottomLine; pmtiPBMS.Items.Add(pmSystemMan.Items); pmtiPBMS.Items.Items[pmtiPBMS.Items.Count-1].Caption:='系統管理'; pmtiPBMS.Items.Items[pmtiPBMS.Items.Count-1].ImageIndex:=6; 這樣也是會有一樣我要的效果 ********************************** 做簽名檔就跟寫程式一樣，想不出來！