Drag&Drop mit VirtualTreeView

[Gruber_Hans_12345]

Was hast du genau für ein Problem ?

Mach mal folgende Sachen (wenn nicht eh schon gemacht !)

*) DragMode auf dmAutomatic
*) Im ClipboardFormat das "Virtual Tree Data" anklicken
*) im OnDragDrop

Delphi-Quellcode:

var Node        : PVirtualNode;
    DropMode    : TVTNodeAttachMode;
begin
    Node := Sender.DropTargetNode;
    case Mode of
        dmAbove:    DropMode := amInsertBefore;
        dmOnNode:   DropMode := amInsertAfter;
        dmBelow:    DropMode := amInsertAfter;
        else        exit;
    end;
    Sender.ProcessDrop(DataObject, Node, Effect, DropMode);