Novato con TTreeView
 

Hola, estoy desarrollando una aplicación que debe mostrar en una estructura de árbol los documentos que contiene un expediente.

Ejemplo:

+ Expediente 1/2004
+ Cartas
1/2004: Tal
2/2004: Pascual
+ Informes
7/2004: Uno
16/2004: Otro

Como veréis hay que rellenar la estructura en tiempo de ejecución y nunca he usado TreeView.

Necesito un sencillo ejemplo para ir creando los elementos, que están en una BD. Uso Delphi 7.

He usado lo siguiente:

Código Delphi [-]
 
cargarbol.Active:=false;
cargarbol.Sql.Clear;
cargarbol.sql.Add('select * from cartas where expediente ="'+datos.expedientes.fieldbyname('numero').asstring+'"');
cargarbol.active:=true;
cargarbol.First;
while (not cargarbol.eof) do
begin
arbol.items.AddChild(arbol.Items[1],cargarbol.fieldbyname('numero').asstring+': '+cargarbol.fieldbyname('resumen').asstring);
cargarbol.Next;
end;
cargarbol.Active:=false;
cargarbol.Active:=false;
cargarbol.Sql.Clear;
cargarbol.sql.Add('select * from informes where expediente ="'+datos.expedientes.fieldbyname('numero').asstring+'"');
cargarbol.active:=true;
cargarbol.First;
while (not cargarbol.eof) do
begin
arbol.items.AddChild(arbol.Items[1],cargarbol.fieldbyname('numero').asstring+': '+cargarbol.fieldbyname('resumen').asstring);
cargarbol.Next;
end;
cargarbol.Active:=false;

El resultado es cuanto menos extraño, ya que en el primer elemento de Cartas me añade el "+" y me mete dentro la siguiente carta o me la deja en el raíz. ¿Qué hago mal? ¿Me pueden poner un ejemplo?

Aparte... ¿Cómo podría asignar un evento DblClick a cada item? o en su defecto, ¿Cómo obtener el texto del item seleccionado?

Perdonad mi ignorancia pero estoy atascado y no encuentro soluciones, a pesar de haber probado varias cosas.

Gracias a to2.

Antes de nada, mírate éste hilo, acabo de respònder otra pregunta sobre TreeView y tal vez el código de ejemplo te sirva:

http://www.clubdelphi.com/foros/showthread.php?t=15724

Para añadir un elemento raiz puedes hacer lo siguiente (importante que "recojas" el nodo añadido para luego usarlo en los hijos...)

Código Delphi [-]
var
  node:TTreeNode;
...
  node := TreeView1.Items.AddFirst(nil, 'Nodo Raiz');

Para añadir "hijos a éste nodo":

Código Delphi [-]
  node := TreeView1.Items.AddChild(node, 'Primer Hijo');
  node := TreeView1.Items.AddChild(node, 'Segundo hijo');
  ...

El objeto (o mejor dicho) la clase TTreeNode no posee evento OnClick, puedes utilizar el del TreeView. Para acceder al elemento seleccionado basta con que utilices la propiedad Selected del TTreeView

Código Delphi [-]
procedure TForm1.TreeView1Click(Sender: TObject);
var
  node:TTreeNode;
begin
  // Acceder al nodo seleccionado
  node := TreeView1.Selected;
  MessageDlg('Selected: ' + node.Text, mtInformation, [mbOK], 0);
end;

Como se ha visto antes, una vez que tienes al nodo seleccionado con Selected, ya puedes acceder a todas sus propiedades.

Gracias
 

Muchas Gracias, probaré con tus consejos.

No sabia que debía quedarme con el nodo anterior para poder añadirlo!!