Virtual TreeView Nodes vertauschen (MoveUp/MoveDown)

[torud]

Hi,

ich habs mal so versucht, aber in dem Fall wird mir die erste Node immer an die letzte Stelle verschoben. Warum nur?

Delphi-Quellcode:

procedure TForm1.btn_down_itemClick(Sender: TObject);
var
  Node: PVirtualNode;
begin
  Node:=VST.FocusedNode;

  if Node <> nil then
    begin
      vst.MoveTo(Node,vst,amInsertAfter,false);
    end;
    vst.Selected[vst.GetFirst] := true; //selektiere die erste node
    list_menu_itemsClick(self); //führe code beim selektieren aus
end;