procedure TForm2.AdvTreeView1Click(Sender: TObject);
var
c: TPoint;
cl: Integer;
t: string;
n: TAdvTreeViewVirtualNode;
begin
c := Mouse.CursorPos;
c := AdvTreeView1.ScreenToClient(c);
n := AdvTreeView1.XYToNode(c.X, c.Y);
if Assigned(n) then
begin
cl := AdvTreeView1.XYToNodeTextColumn(n, c.X, c.Y);
if cl <> - 1 then
begin
t := n.Node.Values[cl].Text;
OutputDebugString(pchar(t));
end;
end;
end;