批量处理菜单（没什么发的了！）.txt

来自「delphi 编程技巧」· 文本 代码 · 共 36 行

批量处理菜单（没什么发的了！） (2001年4月28日) 

网友更新  分类:杂类   作者:www  推荐:wslsoftware   阅读次数:249  
(http://www.codesky.net)  

--------------------------------------------------------------------------------
给函数一主菜单控件名即可使所有菜单项（3级）变灰不可用。
procedure CloseMenu(Menus:TMenu);
var i,j,k:integer;
begin
with Menus do
begin
for i:=0 to items.Count-4 do
begin
if items[i].Count=0 then
begin
items[i].Enabled:=false;
end
else
for j:=0 to items[i].Count-1 do
begin
if items[i].Items[j].Count=0 then
begin
items[i].Items[j].Enabled:=false;
end
else
for k:=0 to items[i].Items[j].Count-1 do
begin
items[i].Items[j].Items[k].Enabled:=false;
end;
end;
end;
end;