MyMenu:Tmenuitem
Mymenu:=tmenuitem.create(self);
增加菜单 PopupMenu1.Items.Add(Mymenu)
指定位置增加:PopupMenu1.items[1].Insert(2,Mymenu)
PopupMenu1.items.Insert(2,Mymenu)具体的系统菜单查看资料
Mymenu:=tmenuitem.create(self);
增加菜单 PopupMenu1.Items.Add(Mymenu)
指定位置增加:PopupMenu1.items[1].Insert(2,Mymenu)
PopupMenu1.items.Insert(2,Mymenu)具体的系统菜单查看资料
API函数:appendmenu