Fórum TreeView - habilitar e desabilitar menus do MainMenu #350901

var
  I, J :Integer;
  Node: TTreeNode;
  NomeP, NomeF : string;
begin
  for i :=  0 to MainMenu1.Items.Count - 1 do
  begin
    NomeP := MainMenu1.Items[i].Caption;
    Node := RzCheckTree1.Items.Add(RzCheckTree1.Selected, NomeP);

    for j := 0 to MainMenu1.Items[i].Count - 1 do
    begin
      NomeF := MainMenu1.Items[i].Items[j].Caption;
      RzCheckTree1.Items.AddChildFirst(node, nomef);
    end;
  end;
end;