將TshellListview的檔案,用拖曳的方式,拖到 ShellTreeView ,但是如何要得知我目前拖到哪一 目錄之中,找了好久都找到不到,或是有什麼函數或事 件可以取得最後拖曳的地方呢? 如圖: 最先點的為阿貴目錄,想要將阿貴目錄中的某一檔案拖曳 到新資料夾,但要如何得知新資料夾的位置名稱 突然想學Delphi的新手

可以在 EndDrag 事件中进行处理：    例子是  ShellTreeView 接受 ShellListView 拖放动作，你可以根据需要进行修改即可。

procedure TForm1.ShellListView1EndDrag(Sender, Target: TObject; X,
  Y: Integer);
Var
  nUserSel : TTreeNode;
begin
  nUserSel := ShellTreeView1.GetNodeAt(x,y);
  if nUserSel<>Nil then
    ShowMessage(ShellTreeView1.Folders[nUserSel.Index].PathName);
end;

發表人 - vicen 於 2005/09/12 21:12:29

先謝謝Vicen 大大的回應,但是用這個方法,取得移動目的資料夾,還是和第之前相同,真怪,沒有函數可使用....

引言: 可以在 EndDrag 事件中进行处理： 例子是 ShellTreeView 接受 ShellListView 拖放动作，你可以根据需要进行修改即可。

procedure TForm1.ShellListView1EndDrag(Sender, Target: TObject; X,
  Y: Integer);
Var
  nUserSel : TTreeNode;
begin
  nUserSel := ShellTreeView1.GetNodeAt(x,y);
  if nUserSel<>Nil then
    ShowMessage(ShellTreeView1.Folders[nUserSel.Index].PathName);
end;

發表人 - vicen 於 2005/09/12 21:12:29

突然想學Delphi的新手

EndDrag应该写在拖放源的事件里，由拖放源的EndDrag事件取拖放目的地的值， 不妨把你的代码发上来看看，是否有什么地方搞错了，因为这是比较基本的拖放操作，错误的机率不是很大的。

源碼如下:

Procedure TfrmMain.ShellListViewEndDrag(Sender, Target: TObject; X, Y: Integer);
Var
  nUserSelect: TTreeNode;
Begin
  If Sender Is TShellListView Then
  Begin
    nUserSelect := ShellTreeView.GetNodeAt(x, y);
    If nUserSelect <> Nil Then
    Begin
      //來源檔案
      gsMoveFileName := ShellListView.Selectedfolder.PathName;
      //移動目錄
      gsMoveFloder := ShellTreeView.Folders[nUserSelect.Index].PathName;
      lblMessage.Caption := '搬移檔案 --->'   gsMoveFileName   ' 到 ===>'   gsMoveFloder   '\';
    End;
  End;
End;

引言: EndDrag应该写在拖放源的事件里，由拖放源的EndDrag事件取拖放目的地的值， 不妨把你的代码发上来看看，是否有什么地方搞错了，因为这是比较基本的拖放操作，错误的机率不是很大的。

突然想學Delphi的新手 發表人 - tahoo 於 2005/09/13 14:17:55

原來是index少了1,    ShellTreeView.Folders[nUserSelect.Index  1 ].PathName; 紅色部份加入即可,謝謝大大給我的解答

引言: EndDrag应该写在拖放源的事件里，由拖放源的EndDrag事件取拖放目的地的值， 不妨把你的代码发上来看看，是否有什么地方搞错了，因为这是比较基本的拖放操作，错误的机率不是很大的。

突然想學Delphi的新手