[l2qwe]

Доброе время суток.
Необходимо запретить перенос узлов на другие уровни.

В DevExprese у TreeList есть индикатор Drag&Drop
(работа индикатора, 3 его положения представлены на скрине)

Можно ли как нибудь определить его состояние в событии:

Код:

procedure DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);

?
Что бы получилось что то вроде

Код:

if InicatorState = 1 then
    Accept := false
  else
    Accept := true

Тогда задача решилась бы сама собой, но не как не могу определить статус этого индикатора....