新 新小丸子 Unregistered / Unconfirmed GUEST, unregistred user! 2001-10-31 #1 请问要删除一个菜单中某个主菜单下所有的子菜单，该怎么做呢？ [] 比如：菜单名叫mainmenu1，一个主菜单叫n6，我要删除其下所有的子菜单n7,n8,n9...
S sword_liu Unregistered / Unconfirmed GUEST, unregistred user! 2001-10-31 #2 你用n6.visable就可以了，何必要删除了？
Z zhaqiong Unregistered / Unconfirmed GUEST, unregistred user! 2001-10-31 #3 你是要编程吗。 就在D中删除呗，双击MainMenu控件点中你的主菜单，Delete，鼠标右键菜单中的Delete都行呀。
新 新小丸子 Unregistered / Unconfirmed GUEST, unregistred user! 2001-10-31 #4 运行期间创建的子菜单呀！！！不能删除，呢如果光visable，会不会多了就占用系统资源呢？
Z zxl9000 Unregistered / Unconfirmed GUEST, unregistred user! 2001-10-31 #6 mainmenu1.items.items[n].items[n].clear;
新 新小丸子 Unregistered / Unconfirmed GUEST, unregistred user! 2001-10-31 #7 以为所有的子彩单都是动态创建的，所以我用你们的办法都没有效果， 是不是清空了之后还要把整个菜单都刷新一遍呢？
S SINGLBOY Unregistered / Unconfirmed GUEST, unregistred user! 2001-10-31 #8 var i:integer; begin for i:=0 to ComponentCount-1 do if Components is TMenuItem then begin if TMenuItem(Components).Parent.Name='N6' then TMenuItem(Components).Visible:=False; end;
var i:integer; begin for i:=0 to ComponentCount-1 do if Components is TMenuItem then begin if TMenuItem(Components).Parent.Name='N6' then TMenuItem(Components).Visible:=False; end;
] 
