TreeView

Delphi

30/09/2003

como inserir items em uma treeview


Smaug_84

Smaug_84

Curtidas 0

Respostas

Smaug_84

Smaug_84

30/09/2003

ja consegui valeu

é assim

procedure TForm1.Button1Click(Sender: TObject);
var
a:TTreeNodes;
begin
// t é a minha trreview
a := TTreeNodes.Create(t);
a.AddChild(t.Selected,edit1.Text);

end;


GOSTEI 0
Lucas Silva

Lucas Silva

30/09/2003

Pessoal,
To tentando colocar um menu, em uma tree view....
Olhem o código..
    for i:= 0 to Menu1.Items.Count -1 do
     begin
       TreeView.Items.Add(nil,(Menu1.Items[i].Caption));
       for e := 0 to Menu1.Items[i].Count -1  do
        begin    
           TreeView.Items.AddChild(TreeView.Items[i],(Menu1.Items[i].Items[e].Caption));
          end;
     end;



Esse [b:a347678134]Menu1[/b:a347678134] tem 5 items e p/ cada item tem 5 subitens.....
o problema é que ele só ta criando subItens para o primeiro item do menu....
os outros ele não cria...

Alguem sabe o que pode ser?


Qualquer ajuda é muito bem vinda.....
Lucas!


GOSTEI 0
Lucas Silva

Lucas Silva

30/09/2003

Moderadores,
Apaguem a bobagem que fiz ai em cima....
Obrigado.....


GOSTEI 0
POSTAR