苦了我三天：一个TreeView显示目录，一个ListView显示对应目录的文件。我怎样直接实现直接在ListView中拖动文件到TreeView中的其他目录来

苦了我三天：一个TreeView显示目录，一个ListView显示对应目录的文件。我怎样直接实现直接在ListView中拖动文件到TreeView中的其他目录来实现文件的复制？(30分)<br />一个TreeView显示目录表
一个ListView显示TreeView对应目录中的所有文件。
我想实现在ListView中直接拖动文件到TreeView中的其他目录中来实现文件的复制，怎么
实现：

天啊，这么惨，连看的人都没有？

下面是实现拖放的代码，请兄台参考一下：
////////////////////////////////加入数据成员
private
sourceFile,destFile:String;
////////////////////
procedure TForm1.DirectoryListBox1DragOver(Sender, Source: TObject; X,
Y: Integer; State: TDragState; var Accept: Boolean);
begin
if Sender<>Source then
Accept:=true
else
Accept:=false;

end;

procedure TForm1.DirectoryListBox1DragDrop(Sender, Source: TObject; X,
Y: Integer);
var pos:TPoint;
index:Integer;
begin
pos.x:=x;
pos.y:=y;
index:=DirectoryListBox1.ItemAtPos(pos,true);
if index<>-1 then
DirectoryListBox1.ItemIndex:=index;
DestFile:=DirectoryListBox1.GetItemPath(index)+'/'+DestFile; //获得目的文件路径和名称
copyfile(PCHAR(SourceFile),PCHAR(DestFile),true); //拷贝文件
end;
procedure TForm1.FileListBox1DragOver(Sender, Source: TObject; X,
Y: Integer; State: TDragState; var Accept: Boolean);
begin
sourceFile:=FileListBox1.FileName; //获得元文件路径和名称。
DestFile:=ExtractFileName(sourceFile); //获得文件名称
end;

先把文件拷贝到剪切板,然后再拷到你要的目录下（我是这莫想，不知具体行不）。

接受答案了.