TreeView Drag and Drop

[M1ndgr4ve]

Hey zusammen

Ich möchte in TreeView Drag and Drop einbauen und die Grundfunktionen funktionieren. Hatte erst meinen eigenen Code dann einen von SwissDelphiCenter. Von der Funktion her sind

sie aber etwa gleich.


procedure TForm1.TreeView1DragDrop(Sender, Source: TObject; X,
Y: Integer);
var
ToDeleteItem, DropItem, CurrentItem, NextItem: TTreeNode;
ChildCount, Childrun: Integer;
begin
if Sender = Source then
begin
DropItem := TreeView1.GetNodeAt(X, Y);
CurrentItem := TreeView1.Selected;
ToDeleteItem := CurrentItem;
NextItem := TreeView1.Items.Insert(DropItem, CurrentItem.Text);
DropItem := NextItem;
ChildCount := TreeView1.Selected.Count;
for Childrun := 1 to ChildCount do
begin
CurrentItem := TreeView1.Selected.GetFirstChild;
NextItem := TreeView1.Items.AddChild(DropItem, CurrentItem.Text);
TreeView1.Items.Delete(CurrentItem);
end;
ToDeleteItem.Delete;
end;
end;

procedure TForm1.TreeView1DragOver(Sender, Source: TObject; X,
Y: Integer; State: TDragState; var Accept: Boolean);
begin
Accept := Sender = TreeView1;
end;
end.


Die Nodes hin und her schieben funktioniert.

Ich möchte jetz das ich zB. Childnodes einem Parentnode unterordnen kann wenn ich ihn verschiebe. Momentan werden die Childs und Parents nur auf der ersten Ebene verschoben bzw.

sie werden einfach zwischeneinander geschoben statt untergeordnet.

Hat jemand einen Tipp für mich?

Grüsse