Fórum Dúvida em MainMenu Treview #333417
21/11/2006
0
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..
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
Curtir tópico
+ 0
Responder
Posts
21/11/2006
Marcelo_mileris
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;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)