TreeView em Run-time

Delphi

24/06/2004

Ola programadores.

Tenho a seguinte TreeView

[color=green:04fe390a78] +Carta +A4 +Glossy Paper +Formulário[/color:04fe390a78]


expandida:
[color=green:04fe390a78] +Carta ---Modelo 01 - 10 folhas ---Modelo 02 - 10 folhas ---Modelo 03 - 10 folhas ---Modelo 01 - 25 folhas ---Modelo 02 - 25 folhas ---Modelo 03 - 25 folhas[/color:04fe390a78]


este é o codigo:
[color=red:04fe390a78] while not Eof(txtArq) do begin Readln(txtArq,sLinha); if sLinha = ´[PRODUTO CARTA]´ then begin Readln(txtArq, sValor); aCarta[iCarta] := sValor; with TreeView1 do begin if bNode then Items.Add(nil, ´Carta´); Items.AddChild(Items[iNodePai],sValor); bNode := false; end;[/color:04fe390a78]



Tenho que montala da seguinte forma

[color=green:04fe390a78] +Carta ---+10 folhas ------+Modelo 01 ------+Modelo 02 ------+Modelo 03 ---+25 folhas ------+Modelo 01 ------+Modelo 02 ------+Modelo 03 [/color:04fe390a78]




nao estou conseguindo incluir um segundo nivel e seu parent

se alguem tiver uma ideia.


Macario

Macario

Curtidas 0

Respostas

Lucas Silva

Lucas Silva

24/06/2004

Colega,
Uma pesquisada antes no fórum antes de postar, não é uma má coisa.
É até melhor pra você, pois consegue achar a sua resposta mais rápida.
Esse assunto de TreeView já rolou muito aqui no fórum.

Eis a solução para o seu problema:
procedure TForm1.Button1Click(Sender: TObject);
var node, node1: TTreeNode;
begin
  node := TreeView1.Items.Add(nil,´Carta´);
  node1 := TreeView1.Items.AddChild(node,´10 Folhas´);
  TreeView1.Items.AddChild(node1,´Modelo 01´);
  TreeView1.Items.AddChild(node1,´Modelo 02´);
  TreeView1.Items.AddChild(node1,´Modelo 03´);
  node1 := TreeView1.Items.AddChild(node,´25 Folhas´);
  TreeView1.Items.AddChild(node1,´Modelo 01´);
  TreeView1.Items.AddChild(node1,´Modelo 02´);
  TreeView1.Items.AddChild(node1,´Modelo 03´);
end;



Até mais,
Lucas!


GOSTEI 0
Macario

Macario

24/06/2004

Ola programador, boa tarde.

Sim eu sei que pesquisar, é sempre o primeiro caminho.

Mas como acha que cheguei, a esta questao?

1º - Não achei topico, semelhante
2º - A sua resposta nao, é a solução para minha duvida.

Pode sim, ser o começo para chegar a solução.

Pois conforme passei, tenho que montar a Treeview dentro de um while,
de onde os dados provem de arquivo texto. E este arquivo pode sempre variar a quantidade do conteudo.


GOSTEI 0
Macario

Macario

24/06/2004

Ola programador, boa tarde.


Continuando, as vezes a solução da duvida, poderia ser alcançada
juntando, repostas de varios topicos. Mas ha de considerar a falta de
conhecimento sobre o componente; Algo como Node, AddChild, as vezes
é de uma total clareza para uns, e escuridão a outros.

Agrade a ti, pela ajuda, pois como disse..é o inicio da solução, e por fim a solução.


Obrigado.


GOSTEI 0
Lucas Silva

Lucas Silva

24/06/2004

Me desculpe,
Entendi errado a sua dúvida.

Poste um pequeno trecho deste arquivo txt aqui no fórum, pra ver se eu consigo fazer alguma coisa.

.. e tambem detalhe mais a dúvida ai..

Lucas!


GOSTEI 0
Macario

Macario

24/06/2004

Novamente boa tarde Lucas.

Entao cara, antes de postar esse topico, ja tinha recorrido a pesquisa,
e dentre os 180 postado, muitos contam com sua colaboração.

A partir deles ja aprendi muito sobre Treeview, agora com esta sua
resposta (mesmo nao sendo ela a solução), consegui adaptar o que tinha até entao.


Pois é, duvida resolvida, e fica aqui meu agradecimento.


GOSTEI 0
POSTAR