@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?