In VirtualTreeview Daten auslesen

[felix56]

Hallo Zusammen

Ich möchte aus einem VST-Baum Daten auslesen. Leider erhalte ich mit dem
Beispiel aus dem Tutorial von VirtualTreeView keine Daten:

Delphi-Quellcode:

procedure TAbfrageForm.AbfrageVST1Click(Sender: TObject);
var
  Node: PVirtualNode;
  Data: PTreeData;
begin
  Node:=AbfrageVST1.FocusedNode;
  if not Assigned(Node) then
    Exit;

  Data:=AbfrageVST1.GetNodeData(Node);
  Showmessage(Data.FCaption);
end;

Für den Bau des Baumes benutze ich:

Delphi-Quellcode:

function AddVSTObject(AVST: TCustomVirtualStringTree;
  ANode: PVirtualNode; AObject: TObject): PVirtualNode;
var
  Data: PTreeData;
begin
  Result := AVST.AddChild(ANode);
  data := AVST.GetNodeData(Result);
  AVST.ValidateNode(Result, False);
  data^.FObject := AObject;
end;

Giebt's da Probleme mit FCaption und FObject?

Wenn ja, wie kann ich das lösen.

Besten Dank für die Hilfe.
Gruss
Felix

[generic]

Delphi-Quellcode:

Showmessage(Data^.FCaption);

schonmal mit ^ probiert? schliesslich ist data ein zeigertyp.

ansonsten arbeite ich gerne ohne den record - sprich direkt mit objekten.
schau mal hier:
http://www.delphipraxis.net/internal...=467689#467689