Como saber o Item do SubItem selecionado de um Treeview

Delphi

20/02/2004

Ola pessoal.

Como saber o Item do SubItem selecionado de um Treeview. Ex

+ Arquivos
- Clientes
- Fornecedores
+ Listagem
- Clientes
- Fornecedores ( Cliquei aqui )

gostaria de obter o resultado ( Listagem Fornecedores )


Helderjr

Helderjr

Curtidas 0

Respostas

Adriano Santos

Adriano Santos

20/02/2004

Você quer saber qual o Nó selecionado?

[color=green:74f1ca0c1e]procedure TForm1.Treview1[b:74f1ca0c1e]Change[/color:74f1ca0c1e][color=green:74f1ca0c1e][/b:74f1ca0c1e](Sender: TObject; Node: TTreeNode); begin ShowMessage(Node.Text) end;[/color:74f1ca0c1e]



GOSTEI 0
Helderjr

Helderjr

20/02/2004

Skyhawk

Na verdade eu preciso saber nó por completo, a qual item o subitem pertence, veja o meu exemplo, eu tenho o subitem ´fornecedores´ tanto o item ´Arquivos´ como em ´Listagem´, então eu quero saber se eu selecionei o subitem ´fornecedores´ do item ´Arquivos´ ou do item ´Listagem´.


GOSTEI 0
Valdir.santos

Valdir.santos

20/02/2004

No OnChange:

ShowMessage(Node.Parent.Text);

Valdir.


GOSTEI 0
Mccs

Mccs

20/02/2004

Caro colega, o que você precisa é desse código.

Basta copiar o código abaixo......

------Revorte Aqui----------------------------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
var
sPath: string;

function NodeTree(pTreeNode: TTreeNode; var sPFull: string): string;
begin
sPFull := pTreeNode.Text + ´ > ´ + sPFull;
if pTreeNode.Level = 0 then
Result := sPFull
else
Result := NodeTree(pTreeNode.Parent, sPFull);
end;

begin
ShowMessage(NodeTree(TreeView1.Selected, sPath));
end;
------Até Aqui--------------------------------------------------------------

Espero ter ajudado.


GOSTEI 0
POSTAR