Ver Mensaje Individual
  #6  
Antiguo 25-12-2007
ascrnet ascrnet is offline
Miembro
 
Registrado: mar 2007
Posts: 41
Reputación: 0
ascrnet Va por buen camino
Cita:
Empezado por david_uh Ver Mensaje
ya mira la propiedad data es lo maximo ahi puedes almacenar incluso informacion de un registro completo,, no tengo a la mano delphi pero puedes consultar en la ayuda de delphi ahi hay un ejemplo de lo que te menciono

pero si solo deseas guardar un dato entonces estas limitado a que sea un entero nada masCódigo Delphi [-]pointer(listview.data)
// y lo recuperas
r:= integer(listview.data)

no recuerdo muy bien pero creo que con esto puedes empezar
Espero te sirva Daludos
muchas gracias david_uh por el datillo.

para agregarlo a cada nodo
Código:
           ra := TreeView1.Items.AddChild(roota,IBQuery1.Fields[1].Text);
           ra.ImageIndex := 2 ;
           ra.SelectedIndex := 2 ;
           ra.Data:=pointer(IBQuery1.FieldByName('ID').AsInteger);
y despues seleccionado el nodo

Código:
 IBQuery1.SQL.ADD('SELECT * FROM GAMES WHERE ID ='+IntToStr(integer(TreeView1.Selected.Data)));
aqui dejo como lo use por si alguien tambien tiene el mismo problema

saludos
Responder Con Cita