请问如何实现把listview中的一个节点拖动到treeview中，就如同资源管理器中的文件的拖动

Question

如题

Answer 1

procedure TForm1.TreeView1DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
  Accept := Source is TListView;
end;procedure TForm1.TreeView1DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
  With (Sender as TTreeView) do
  begin
   ItemS.AddChild (GetNodeAt(X,Y),(Source as TListView).Items[(Source as TListView).ItemIndex].Caption);
   TreeView1.Refresh;
  end;
end;procedure TForm1.ListView1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
if Button = mbLeft then
begin
  ListView1.DragMode:= dmManual;
   ListView1.BeginDrag(false,-1);
end;