[TTreeView] Drag 'n' Drop

[xZise]

Wie kann man Drag and Drop in ein TTreeView einbauen, und dass man Objekte z.B. nur innerhalb des gleichen Levels oder das nur Objekte des Levels X verschoben werden können?

Und wie komme ich an das "StartItem" und das "Dropitem" (bzw. dessen Position vor und nach dem Drag and Drop)

[bitsetter]

...in einem TTreeView Items per Drag and Drop verschieben?

Zitat:

Und wie komme ich an das "StartItem" und das "Dropitem" (bzw. dessen Position vor und nach dem Drag and Drop)

folgendes in Bezug auf den Link:

Delphi-Quellcode:

       TargetNode := GetNodeAt(X,Y); // Get target node
SourceNode := Selected; // Get source node