Fórum Menu criado apartir do treeview #217230

1º - Crie um arquvo de texto "Itens.txt", na raiz da aplicação!
2º - No evento OnCreate do form, coloque o seguinte código:

TreeView1.LoadFromFile( ExtractFilePath( Application.ExeName ) + ´Itens.txt´ );

Obs.: Ao criar os itens no menu, separe os nós da raíz atraves de um "TAB( prescionando o botao )". Lembrando que cada item do menu, deve ficar emcada linha do arquivo de texto!  

var
  vMenuItens: array of TMenuItem;

function CriaMenuItem(node: TTreeNode; menu: TMenuItem): TMenuItem;
var
  n,z: integer;
begin
  z := Length(vMenuItens);
  SetLength(vMenuItens, z+1);

  vMenuItens[z] := TMenuItem.Create(Form1);
  vMenuItens[z].Caption := node.Text;

  for n:=0 to node.Count-1 do
    CriaMenuItem(node.Item[n], vMenuItens[z]);

  Result := nil;
  if menu = nil then
    Result := vMenuItens[z]
  else
    menu.Add(vMenuItens[z]);
end;


procedure TForm1.Button1Click(Sender: TObject);
var
  n: integer;
begin
  for n:=0 to TreeView1.Items.Count-1 do
  begin
    if TreeView1.Items[n].Level = 0 then
      PopupMenu1.Items.Add(CriaMenuItem(TreeView1.Items[n], nil));
  end;
end;