Virtual TreeView Nodes vertauschen (MoveUp/MoveDown)

[torud]

Also ich habe den Code nochmal geändert.
Mit dem Update der Komponente (von März 2009) und dem geänderten Code, gehts nun.
Wenn´s jemandem helfen sollte, freuts mich!

Delphi-Quellcode:

//bewege node 1 nach unten
procedure TForm1.btn_down_itemClick(Sender: TObject);
var
  Node: PVirtualNode;
begin
  Node:=VST.FocusedNode;

  if Node <> nil then
    begin
      vst.MoveTo(Node,vst.GetNext(Node),amInsertAfter,false);
    end;
    vst.Selected[Node] := true; //selektiere das node gleich noch
    list_menu_itemsClick(SELF); //führe update für selektion aus, falls nötig
end;

//bewege node 1 nach oben
procedure TForm1.btn_up_itemClick(Sender: TObject);
var
  Node: PVirtualNode;
begin
  Node:=VST.FocusedNode;

  if Node <> nil then
    begin
      vst.MoveTo(Node,vst.GetPrevious(Node),amInsertBefore,false);
    end;
    vst.Selected[node] := true; //selektiere das node gleich noch
    list_menu_itemsClick(SELF); //führe update für selektion aus, falls nötig
end;