TVirtualStringTree: nachträglich Objekt am Knoten tauschen

[Keks]

@Stevie
Danke für den Alternativvorschlag. Bekomme es damit aber leider auch nicht hin...
Ich nehme mal an, das müsste "LNodeData := Tree.GetNodeData(Node);" in beiden Funktionen heißen.
Dann hab ich das so versucht:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  obj1, obj2 : TObject;
begin
  obj1 := GetObjectOfNode(VST.GetFirst, VST);
  obj2 := GetObjectOfNode(VST.GetFirst.NextSibling, VST);

  SetObjectOfNode(VST.GetFirst.NextSibling, VST, obj1);
  SetObjectOfNode(VST.GetFirst, VST, obj2);
end;

Das sollte dann ja die ersten beiden Knoten des Baums vertauschen, oder? Passiert aber nichts. Oder muss man die Anzeige noch irgendwie aktualisieren?