Imagenes en un TREEVIEW

[ecfisa]

Hola Luís.

Te pongo un ejemplo simple que utiliza la propiedad Data, espero que te sea útil...

Código Delphi [-]
type
  TMiClase = class(TObject)
    Texto: string;
    //...
  end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Nodo: TTreeNode;
  MiClase: TMiClase;
begin
  Nodo:= nil;
  MiClase:= TMiClase.Create;
  MiClase.Texto:= '¡Joya! justo sobre el nodo';
  TreeView1.Items.AddChildObject(Nodo, 'Hace click aquí', MiClase);

end;

procedure TForm1.TreeView1Click(Sender: TObject);
var
  Nodo: TTreeNode;
  P: TPoint;
begin
  P:= ScreenToclient(Mouse.CursorPos);
  Nodo:= TreeView1.GetNodeAt(P.X, P.Y);
  if Nodo <> nil then
    ShowMessage(TMiClase(Nodo.Data).Texto)
  else
   ShowMessage('¡ Pif ! );
end;

sos una masa....

Muchas gracias

Saludos.