DragDrop im Treeview - wo bin ich?

[Bummi]

ich habe sogar noch eine VM wo der Kram installiert ist, man kann etwas damit hinmogeln, ob Du es so machen willst überlasse ich Dir ....

Delphi-Quellcode:

var
FDragNode:TTreeNode;//gehört in die Klasse oder zumindest initial genilt

procedure TForm2.Treeview1DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
   if Assigned(FDragNode) then
      begin
       FDragNode.MoveTo(TreeView1.DropTarget,naAddChild);
       FDragNode := nil;
      end;
end;

procedure TForm2.Treeview1DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
  if Assigned(TreeView1.DropTarget) then
    begin
    TreeView1.DropTarget.Selected := true;
    end;
end;

procedure TForm2.Treeview1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
   Treeview1.BeginDrag(false);
   FDragNode := TreeView1.Selected;
end;