VitrtualStringTree. Как перетащить на уровень ROOT?

Question

А имеют дерево: ROOT - VirtualStringTree (Вы не видите его, TVirtualStringTree.RootNode)

- My Root Node 1 
- My Root Node 2 
- - Second node 1 
- - Second node 2 
- - Second node 3 
- My Root Node 3 

Я drag'n'drop "Мой корневой узел 3" для любого видимого узла, но я не может вернуть его в положение defaut, до корневого уровня дерева.

Я стараюсь, что:

//Part of code from OnDragDrop Event of VirtualStringTree 
    if (Sender.DropTargetNode = Sender.RootNode) then 
    begin 
     for i := 0 to high(Nodes) do 
     begin 
     LinksTree.MoveTo(Nodes[i], Sender.DropTargetNode, Attachmode, False); 
     end; 
    end; 

Я не помещает курсор в никуда, но ничего не происходит. В DragOver я принял drop to root, если DropTarget является VST.RootNode.

Кто-нибудь знает, как удалить узел в VST.RootNode, если я перетаскиваю мышь в пустое пространство компонента?

Answer 1

Вы не показали свой код, но в основном, вам просто нужно использовать правильный (прикрепить) Mode параметр для MoveTo вызова метода в ситуациях, когда (падение) Mode параметров вашего метода OnDragDrop событий равна dmNowhere , который указывает, что пользователь просто удалил узел (ы) в пустое пространство дерева. Я предполагаю, что у Вас есть код, как следует определить режим прикрепления в методе OnDragDrop событий:

var 
    ... 
    AttachMode: TVTNodeAttachMode; 
begin 
    ... 
    // the Mode here is a drop mode parameter 
    case Mode of 
    dmNowhere: AttachMode := amNoWhere; // <- where this stands for no move 
    ... 
    end; 
    ... 
end; 

Если это так, вы можете просто сказать дерево, чтобы прикрепить узел, например, в качестве последнего ребенка путем изменения режима подключения к amAddChildLast если режим падение будет dmNowhere:

var 
    ... 
    AttachMode: TVTNodeAttachMode; 
begin 
    ... 
    // the Mode here is a drop mode parameter 
    case Mode of 
    dmNowhere: AttachMode := amAddChildLast; // <- attach node as a last child 
    ... 
    end; 
    ... 
end;