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
例:PopupMenu中有
1>11
>111
>1111
2>21
>221
>2221
pmMainMenu.Popup(Mouse.CursorPos.X,Mouse.CursorPos.Y) 单击Button弹出PopupMenu的某个菜单!如弹出
2>21
>221
>2221
GetSubMenu
TrackPopupMenu
具体请参考msdn
h: HMENU;
begin
h := GetSubMenu(PopupMenu.Handle, 1);
TrackPopupMenu(h, 0, Mouse.CursorPos.X,Mouse.CursorPos.Y, 0, Handle, nil)
end;
特别谢谢:zhuminghua()
分给出