将MainMenu的items的子菜单N26隐藏关闭掉。 
感谢不尽!

解决方案 »

  1.   

    MainMenu.Items.Find('items').Find('N26').Visible:=false;
      

  2.   

    必须保证“items”和“N26”菜单存在,否则以上语句会出现异常!
    假设不能保证所查找的菜单是否存在,则加判断语句。
      

  3.   

    function HideMenu(MenuName:string):integer;
    Var FindItem :TMenuItem;
    begin
      FindItem := TMenuItem(FindComponent(MenuName));
      if FindItem is nil then 
      begin
        Result := -1;
        exit
      end
      else
      begin
        FindItem.Visible := false;
        FindItem.Enabled := false;
        Result := 0;
      end;
    end;