VirtualTreeView - Anfängerhilfe

[FilouLE]

Delphi-Quellcode:

procedure TMainForm.FormCreate(Sender: TObject);
begin
  VST.NodeDataSize:=SizeOf(TTreeData);
end;

procedure TMainForm.VSTGetText(Sender: TBaseVirtualTree; Node: PVirtualNode;
          Column: Integer; TextType: TVSTTextType; var CellText: WideString);
var
  Data: PTreeData;
begin
  Data:=VST.GetNodeData(Node);

  CellText := Data^.FCaption;
end;

Gesagt, getan. Es regt sich immer noch nichts. Nach wie vor erscheint der defaultText.