Ein VirtualStringTree hat doch einen Support für Checkboxen, wusstest du das nicht?
Edit: verdammt, die CheckBoxen sind auch mit der alten Version von VST nicht mehr da. Muss wahrscheinlich an was anderem liegen
Edit 2: ein bisschen Nachdenken hätte nicht geschadet!
Die Knoten werden ja jetzt erst bie der Anzeige initialisiert wenn ich das richtig verstanden habe.
Demnach musste Folgendes zusätzlich in InitNode
Delphi-Quellcode:
procedure TForm2.VSTInitNode(Sender: TBaseVirtualTree; ParentNode, Node: PVirtualNode; var InitialStates: TVirtualNodeInitStates);
var
Data: PMyDataClass;
begin
Data := VST.GetNodeData(Node);
// .... dem VST natürlich auch sagen, dass er die verflicksten Dinger anzeigen soll!
Node.CheckType := ctCheckBox;
Node.CheckState := csCheckedNormal;
Data^ := FMyDataClasses[Node^.Index];
end;