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;
Muchas gracias
Saludos.
![Smilie](http://www.clubdelphi.com/foros/images/smilies/smile.gif)