Virtual TreeView Nodes vertauschen (MoveUp/MoveDown)

[toms]

das ganze in einer Procedure verpackt:

Delphi-Quellcode:

type
  TMoveDirection = (mdDown, mdUp);

procedure TForm1.VST_MoveNode(VST: TBaseVirtualTree; Direction: TMoveDirection);
var
  Node: PVirtualNode;
begin
  Node := VST.FocusedNode;
  if Assigned(Node) then
  begin
    case Direction of
      mdUp: VST.MoveTo(Node, VST.GetPrevious(Node), amInsertBefore, False);
      mdDown: VST.MoveTo(Node, VST.GetNext(Node), amInsertAfter, False);
    end;
    VST.Selected[Node] := True;
  end;
end;