VST bei OnDragOver auf das Datenobject greifen wegen Accept

[Kostas]

Hallo Hawkeye,

würdest Du bitte noch ein Blick auf meine DragDrop Methode werfen,
der Node sollte eigentlich verschoben werden. Doch er verschwindet
einfach nach dem Drop.
Eigentlich brauche ich es nicht weil ich den Bau neu aufbauen lasse,
aber so müsste sich doch der Node verschieben lassen oder?

Delphi-Quellcode:

procedure TfrLigen.VSTDragDrop(Sender: TBaseVirtualTree; Source: TObject;
  DataObject: IDataObject; Formats: TFormatArray; Shift: TShiftState;
  Pt: TPoint; var Effect: Integer; Mode: TDropMode);

var
  SourceNode, TargetNode: PVirtualNode;
  DropMode: TVTNodeAttachMode;

begin
  inherited;
  SourceNode := VST.FocusedNode;
  TargetNode := Sender.DropTargetNode;

  case Mode of
    dmAbove: DropMode := amInsertBefore;
    dmOnNode: DropMode := amInsertAfter;
    dmBelow: DropMode := amInsertAfter;
  end;

  VST.MoveTo(SourceNode, TargetNode, DropMode, true);

end;

Gruß Kostas