Проблемы при DragDrop в DBTreeList

← →
RDA © (2003-02-15 21:21) [0]

Таблица (ID,PARENT,KIND,NAZV) где KIND - smallint и определяет тип записи (подразделение-0, отдел-1, сотрудник-2). Свойство DBTreeList DragMode=dmAutomatic. При переносе все работает отлично но есть одно но - дабы не нарушить логику иерархии написал следующий код
procedure TfmStr.TreeListDragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean); var TargetNode, SourceNode : TdxTreeListNode; begin TargetNode:=TreeList.GetNodeAt(X,Y); SourceNode:=TreeList.FocusedNode; if TargetNode<>nil then case TargetNode.ImageIndex of 0 : if SourceNode.ImageIndex in [1,2,3] then Accept:=True; 1 : if SourceNode.ImageIndex in [2,3] then Accept:=True; 2 : Accept:=False; else Accept:=False; end; end;
И все бы хорошо но нормально проходит перенос когда TargetNode.ImageIndex=0 и SourceNode.ImageIndex=0, хотя это явно запрещено в операторе выбора.
Может есть лучший способ оследить иерархию, посоветуйте мастера.

← →
MBo © (2003-02-15 22:02) [1]

Accept:=False;
TargetNode:=TreeList.GetNodeAt(X,Y);
SourceNode:=TreeList.FocusedNode;
if TargetNode<>nil then
Accept:=SourceNode.ImageIndex>TargetNode.ImageIndex;

это всё.

← →
RDA © (2003-02-16 09:51) [2]

Хотелось чтоб это было все. После такого кода, у меня вообще не работает DragDrop, хотя я и не вижу явной ошибки.

Добавлю, DBTreeList.ImageIndexFieldName=KIND, и однозначно идентифицирует тип записи.

Проблемы при DragDrop в DBTreeList Найти похожие ветки