FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
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. |
#2
|
|||
|
|||
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:
y el evento OnDeletion para liberar memoria:
Eso sí, para acceder a los datos del nodo tienes que hacer el moldeo:
Bye Última edición por keyboy fecha: 07-04-2008 a las 20:46:12. Razón: Olvidé el .Data en el último trozo |
#3
|
|||
|
|||
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:
|
#4
|
|||
|
|||
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 |
#5
|
|||
|
|||
Cita:
Ok denuevo muy agradecido, por tu colaboración... |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
nodos y la propiedad data en un Treeview | david_uh | Varios | 1 | 22-09-2007 00:12:31 |
Agregar la propiedad PasswordChar a un TColumn.... | chileno | Varios | 4 | 12-05-2007 00:15:41 |
Agregar nietos al TreeView | angelillo182 | OOP | 3 | 01-06-2006 18:15:00 |
Como utilizar el Treeview, desplegar la info del arbol binario al treeview | leo21 | Varios | 2 | 08-04-2004 22:47:30 |
Como utilizar el Treeview, desplegar la info del arbol binario al treeview | leo21 | OOP | 1 | 08-04-2004 22:42:44 |
|