能力值：
( LV12，RANK：410 )
|
-
-
2 楼
procedure WithDropFiles(var Msg: TMessage); message WM_DROPFILES;
然后应该就是文件的copy了~~
|
能力值：
( LV2，RANK：10 )
|
-
-
3 楼
ShellListView控件显示的文件似乎不能拖拽，接收不了这个消息吧？？？
|
能力值：
( LV12，RANK：410 )
|
-
-
4 楼
设置ShellListView 的DrogModel属性为dmAutomobile才可拖动
然后在这个事件上写代码：
procedure TForm1.ShellListView1EndDrag(Sender, Target: TObject; X,
Y: Integer);
Var
nUserSelect: TTreeNode;
gsMoveFileName,gsMoveFloder:string;
Begin
If Sender Is TShellListView Then
Begin
nUserSelect := ShellTreeView1.GetNodeAt(x, y);
If nUserSelect <> Nil Then
Begin
//來源
gsMoveFileName := ShellListView1.Selectedfolder.PathName;
//移动目录
gsMoveFloder := ShellTreeView1.Folders[nUserSelect.Index].PathName;
Edit1.text:= '档案 --->' + gsMoveFileName + ' 到 ===>' + gsMoveFloder + '\';
End;
End;
End;
|
能力值：
( LV2，RANK：10 )
|
-
-
5 楼
谢谢vXIN，已经实现类似的功能了．
有一个ListView,列出的是目标文件，我们老板让我拖动shelllistview控件显示的文件到listview里某个显示的目标文件，替换掉它．
|
|
|
|
