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