Foros Club Delphi - Agregar Propiedad a un TreeView

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)

- - Agregar Propiedad a un TreeView (https://www.clubdelphi.com/foros/showthread.php?t=55074)

Agregar Propiedad a un TreeView

Hola compañeros recurro a sus conocimientos en Delphi pues no se como darle solución a mi problema..

Resulta que estoy haciendo un editor de un catálogo contable, ejemplo
Activo
Activo Circulante
Cuenta por Cobrar

Para lo cual me parece muy util el TreeView, sin embargo a cada nodo lo más que le puede asignar es el Texto y necesito también asignarle una cuenta contable. Como puede hacer para crear una propiedad ncuenta dentro de un nodo? de manera que yo pueda hacer nodo.selected.ncuenta.

Si tienen alguna idea me sería de gran ayuda.

Código Delphi [-]procedure TForm1.TreeView1Addition(Sender: TObject; Node: TTreeNode);
var
  Dato: TMiClase;

begin
  Dato := TMiClase.Create(...);
  Node.Data := Dato;
end;

y el evento OnDeletion para liberar memoria:

Código Delphi [-]procedure TForm1.TreeView1Deletion(Sender: TObject; Node: TTreeNode);
begin
  TMiClase(Node.Data).Free;
end;

Eso sí, para acceder a los datos del nodo tienes que hacer el moldeo:

Código Delphi [-]TMiClase(TreeVie1.Selected.Data).Activo := ....;

Bye

Gracias por tu sugerencia de hecho ya pude realizar lo que quería.

Sólo tengo una duda:
Tengo el objeto TreeView creado con los punteros correspondientes a cada nodo, cuando yo cierro/destruyo el formulario que contiene el treeview, también se libera la memoria de todos los pointer que han sido creados.
Y de nuevo muchas gracias...

//el formulario 12 permite al usuario editar la descripción de una cuenta contable y sugiere el número de cuenta a crear.

procedure Tform11.crearrnodopadre;
//es prácticamente el mismo para el nodo hijo sólo que con AddChild

if form12.showmodalcuenta= mrOk then
begin
new(miclase);
miclase^.ncuenta:= IntToStr(treeview1.items.Count+1);
miclase^.descripcion:=form12.dcuenta.Text;
nodes := treeview1.Items.add(nil,IntToStr(treeview1.items.Count+1)); { Add a root node }
nodes.Data:=miclase; //asignar la descripción
end;
end;

y así lo leo, tal ycomo lo indicaste
index es la posición del nodo
catalogo.FieldByName('descripcion').Text:= Clase(TreeView1.items[index].Data).descripcion;

Cita:

Empezado por keyboy (Mensaje 278076)

Cada nodo (TTreeNode) tiene una propiedad Data de tipo Pointer que puedes apuntar a la estructura o clase que quieras. Simplemente tienes que tener cuidado con el manejo de la memoria. Lo más sencillo es que uses el evento OnAddition del Treeview para crear el objeto que desees y asignarlo al nodo:

Código Delphi [-]
procedure TForm1.TreeView1Addition(Sender: TObject; Node: TTreeNode);
var
Dato: TMiClase;

begin
Dato := TMiClase.Create(...);
Node.Data := Dato;
end;

y el evento OnDeletion para liberar memoria:

Código Delphi [-]
procedure TForm1.TreeView1Deletion(Sender: TObject; Node: TTreeNode);
begin
TMiClase(Node.Data).Free;
end;

Eso sí, para acceder a los datos del nodo tienes que hacer el moldeo:

Código Delphi [-]
TMiClase(TreeVie1.Selected.Data).Activo := ....;

Bye

Por favor, usa etiquetas [code]...[/code] o [delphi]...[/delphi] para que el código quede correctamente indentado.

Cuando cierras o destruyes el formulario que contiene al TreeView, éste se destruirá pero no se liberará la memoria creada en Data de manera automática; tienes que hacerlo tú mismo, y la forma más sencilla, como te comenté antes, es valiéndose del evento OnDeletion del TreeView. Este evento se lanzará de cualquier forma en que se destruya un nodo, bien sea porque todo el TreeView se destruye o bien porque un nodo en particula se borra. Así, es el lugar idóneo para liberar la memoria que hayas asignado.

Bye

Cita:

Empezado por keyboy (Mensaje 278480)

Ok denuevo muy agradecido, por tu colaboración...