Fórum Montar TreeView com MainMenu #407171

tente com essa procedure:

procedure MontaTreeMenu(mnuMenu: TMenu; treeMenu: TTreeView);
var
  i: integer;
  No: TTreeNode;

  procedure MontaTreeItem(mnuItem: TMenuItem; NoPai: TTreeNode = nil);
  var
    x: integer;
    NoFilho: TTreeNode;
  begin
    // enquanto houver filhos...
    for x := 0 to mnuItem.Count - 1 do
    begin
      // adiciona um nó ao treeview
      NoFilho := treeMenu.Items.AddChild(NoPai, mnuItem.Items[x].Caption);
      if mnuItem.Items[x].Count > 0 then          // se o item tiver 'filhos'...
        MontaTreeItem(mnuItem.Items[x], NoFilho); // adiciona esses filhos
    end;
  end;
begin
  treeMenu.Items.BeginUpdate; // prepara para manipulação
  treeMenu.Items.Clear; // elimina todos os itens

  for i := 0 to mnuMenu.Items.Count - 1 do
  begin
    // adiciona um nó ao treeview
    No := treeMenu.Items.Add(nil, mnuMenu.Items[i].Caption);
    if mnuMenu.Items[i].Count > 0 then     // se o menu tiver 'filhos'...
      MontaTreeItem(mnuMenu.Items[i], No); // adiciona esses filhos
  end;

  treeMenu.Items.EndUpdate; // finaliza a manipulação
end;



a sintaxe é simples:

MontaTreeMenu(SeuMenu, SuaTreeView);

onde 'SeuMenu' pode ser um MainMenu, um PopupMenu ou qualquer menu derivado (herdado) de TMenu.