Button/PopupMenu建立好了.
例:PopupMenu中有
1>11
 >111
 >1111
2>21
 >221
 >2221
pmMainMenu.Popup(Mouse.CursorPos.X,Mouse.CursorPos.Y) 单击Button弹出PopupMenu的某个菜单!如弹出
2>21
 >221
 >2221

解决方案 »

  1.   

    BUTTON有个属性PopupMenu 选你要调用的菜单就是了....
      

  2.   

    只需如下2个函数:
    GetSubMenu
    TrackPopupMenu
    具体请参考msdn
      

  3.   

    var 
       h: HMENU;
    begin
      h :=  GetSubMenu(PopupMenu.Handle, 1);
      TrackPopupMenu(h, 0, Mouse.CursorPos.X,Mouse.CursorPos.Y, 0, Handle, nil)
    end;
      

  4.   

    谢谢各位,
    特别谢谢:zhuminghua() 
    分给出