Dúvida em MainMenu Treview

Delphi

21/11/2006

for X := 0 to (FMain.MainMenu1.Items.Count - 1) do
begin
NomeM := FMain.MainMenu1.Items[X].Caption;
TreeView1.Items.Add(nil,NomeM);
for Y := 0 to (FMain.MainMenu1.Items[X].Count - 1) do
begin
NomeI := FMain.MainMenu1.Items[X].Items[Y].Caption;
if (NomeI <> ´-´) then
begin
TreeView1.Items.AddChild(TreeView1.Items[X],NomeI);
end;
end;
end;

está listando apenas no 1º node, como faço pra listar os itens da treeview com seus respectivos subitens corretamente?
agradeço desde ja qm poder me ajudar..


Nightshade

Nightshade

Curtidas 0

Respostas

Marcelo_mileris

Marcelo_mileris

21/11/2006

Dá uma olhada no código agora... aqui comigo montou certinho o TreeView

var
  X,Y:Integer;
  NomeM,NomeI : string;
  Node : TTreeNode;
begin

  for X := 0 to (FMain.MainMenu1.Items.Count - 1) do
  begin
    NomeM := FMain.MainMenu1.Items[X].Caption;
    Node := TreeView1.Items.Add(TreeView1.Selected,NomeM);

    for Y := 0 to (FMain.MainMenu1.Items[X].Count - 1) do
    begin
      NomeI := FMain.MainMenu1.Items[X].Items[Y].Caption;
      TreeView1.Items.AddChild(Node,NomeI);
    end;
  end;



GOSTEI 0
POSTAR