Pegando nó Pai Nó Filho

Delphi

18/02/2005

Galera,
Boa Noite.
Estou precisando do seguinte: que eu pegue o texto nó item + nó subitem + nó subitem do subitem de um item selecionado num tree view.
Entenderam?
Mais ou menos assim:
1 - Administração
1.1 - Contas
1 - Telefone

Label1.Caption: Administração + Contas + Telefone;


Dbergkamps

Dbergkamps

Curtidas 0

Respostas

Dbergkamps

Dbergkamps

18/02/2005

só retificando:
é assim:
1 - Administração
1.1 - Contas
1.1.1 - Telefone


GOSTEI 0
Dbergkamps

Dbergkamps

18/02/2005

sobe


GOSTEI 0
Marcelo Saviski

Marcelo Saviski

18/02/2005

não tnho certeza se esse código funciona, mas...

os Itens tem uma propriedade parente, então

var
  Item: TTreeViewitem;
  s: string;
begin
  s := ´´;
  Item := ItemSelecionado;
  while Assigned(Item) do
  begin
    s := Item.Text + s;
    Item := Item.Parent;
  end;
  LabelX.Caption := s;
end;


Não llembro se é Item.Text ou Item.Caption, bom, veja como funciona e diga se dá certo assim


GOSTEI 0
Dbergkamps

Dbergkamps

18/02/2005

ele não reconheceu o
Item: TTreeViewItem
Mas valeu pela força.
Se puder mandar mais alguma coisa, ficarei grato.


GOSTEI 0
POSTAR