(--在线等,立刻送分--) 请问:如何单击Button弹出PopupMenu中的指定菜单?
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

[解决办法]
只需如下2个函数:
GetSubMenu
TrackPopupMenu
具体请参考msdn
[解决办法]
var
h: HMENU;
begin
h := GetSubMenu(PopupMenu.Handle, 1);
TrackPopupMenu(h, 0, Mouse.CursorPos.X,Mouse.CursorPos.Y, 0, Handle, nil)
end;