Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > OOP
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Coloboración Paypal con ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #7  
Antiguo 10-08-2010
Avatar de ContraVeneno
ContraVeneno ContraVeneno is offline
Miembro
 
Registrado: may 2005
Ubicación: Torreón, México
Posts: 4.740
Poder: 26
ContraVeneno Va por buen camino
Yo también utilizo un TjvCheckTreeView y no es muy diferente al TreeView, salvo la casilla de verificación, vamos, es lo mismo. Y con esto me ayudo mucho para manejar y obtener información de un nodo.
Código Delphi [-]
//definición de datos que se adminitiran en Nodo.Data:
  type
  PInfoNodo = ^TInfoNodo;
  TInfoNodo = record
    Caption: string;
    ID: Integer;
  end;
......
//Para agregar un nuevo nodo:
var   InfoNodo: PInfoNodo;
.....
   New(InfoNodo);
   InfoNodo^.Caption := Nombre; //nombre es una variable string
   InfoNodo^.ID := 1;
   if TreeView.Selected.HasChildren then begin
    Nodo := TreeView.Items.AddChildObject(TreeView.Selected, Nombre, InfoNodo);
   end else begin
    Nodo := TreeView.Items.AddObject(TreeView.Selected, Nombre, infoNodo);
 end;
...
//Para obtener información del nodo.data
 if (TreeView.Selected.Data <> nil) then begin
   edtNodoCaption.Text := PInfoNodo(TreeView.Selected.Data)^.Caption;
   edtNodoId.Text := IntToStr(PInfoNodo(TreeView.Selected.Data)^.ID);
end;

Saludos.
__________________


Última edición por ContraVeneno fecha: 10-08-2010 a las 19:48:19.
Responder Con Cita
 


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Integer a String en PHP noshy PHP 13 06-08-2007 19:26:36
Como Transormar un string largo a Integer largo RodoRodo Varios 1 27-06-2007 02:26:29
Como pasar de string a integer. mcalmanovici Firebird e Interbase 4 03-04-2007 18:23:47
¿Como pasar de String a Integer? astur_racing JAVA 5 13-01-2005 18:58:18
Como Convertir un dato Integer ó Float a String en FireBird???? AGAG4 Firebird e Interbase 8 04-12-2004 02:59:47


La franja horaria es GMT +2. Ahora son las 19:54:38.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi