DevExpress> TcxDBTreeList Узлы перетаскивания дерева (записи)

Question

Я хочу переместить узлы дерева (записи БД) в TcxDBTreeList путем перетаскивания, есть ли свойство в этом компоненте для этой опции?

Answer 1

для включения перетаскивания записей в TcxDbTreeList

написать приведенные ниже коды для событий;

onBeginDragNode событие

Allow:= True;

onDragOver событие

Accept:=True;

установить свойство cxDbTreeList для DragMode

DragMode:=dmAutomatic;

Answer 2

Проверьте событие OnBeginDragNode. Похоже, это лучшее место для того, что вы хотите сделать.

Answer 3

Я обнаружил, что на самом деле мне пришлось самому перемещать узлы:

procedure TForm1.cxDBTreeList1MoveTo(...);
   var i:integer;
begin
   for i := 0 to Nodes.Count - 1 do
       begin
          // move the node in the tree
          TcxTreeListNode(Nodes[i]).MoveTo(AttachNode, AttachMode);
          // change the database to match
          UpdateParentForNode(NodeID, NewParentID, SortSpecifier);
   end;
   Done := True;
end;

Это имеет определенный смысл в DBTreeView - сетка не имеет точного способа точно узнать, как вы хотите изменить перемещенную строку (и). Вероятно, необходимо изменить порядок сортировки, а также идентификатор родителя.