VirtualTreeView - Drag'n'Drop nur in jeweiliger Ebene?

[Hedge]

Ah danke.
Habe jetzt das gewünscht Verhalten erreicht.

OnDragDrop sieht so aus:

Delphi-Quellcode:

Node := Sender.DropTargetNode;
DropMode := amInsertAfter;
if ((VST.GetNodeLevel(VST.FocusedNode)=1) AND (VST.GetNodeLevel(Node)=0)) then
DropMode := amAddChildLast;
Sender.ProcessDrop(DataObject, Node, Effect, DropMode);

und OnDragOver so:

Delphi-Quellcode:

  Node := Sender.GetNodeAt(Pt.X, Pt.Y);
  case Mode of
    dmOnNode: Accept := true;
  else
    Accept := false;
  end;
  if (Sender.GetNodeLevel(Sender.FocusedNode)=0) and (Sender.GetNodeLevel(Node)=1) then
      Accept := false;