VirtualStringTree (einen Knoten Name vergeben)

[dahead]

In deinem Titel ist ein P zuviel, und ein T zu wenig.

Zum Thema: NODE ist der Standardtext. Du musst das Ereignis OnGetText verwenden und dort je nach Spalte den Text setzen.

Delphi-Quellcode:

type
  PNodeID = ^TNodeID;
  TNodeID = record
   fObject: TObject;
  end;

procedure TMainForm.VSTObjectsGetText(Sender: TBaseVirtualTree;
  Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType;
  var CellText: WideString);
var
  p: PNodeID;
begin
  p := Sender.GetNodeData(Node);
  if p <> nil then
    begin
      case Column of
        0: CellText := TScanObjectList(p.fObject).Caption;
        1: CellText := TScanObjectList(p.fObject).ItemCountStr;
      end;
    end;
end;

Edit: kleines Beispiel angehängt.
Edit2: end; vergessen.