ShellTreeView 拖曳檔案的問題 |
尚未結案
|
tahoo
一般會員 發表:22 回覆:19 積分:8 註冊:2003-05-13 發送簡訊給我 |
|
Vicen
高階會員 發表:13 回覆:145 積分:151 註冊:2005-03-14 發送簡訊給我 |
可以在 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 |
tahoo
一般會員 發表:22 回覆:19 積分:8 註冊:2003-05-13 發送簡訊給我 |
先謝謝Vicen 大大的回應,但是用這個方法,取得移動目的資料夾,還是和第之前相同,真怪,沒有函數可使用....
引言: 可以在 EndDrag 事件中进行处理: 例子是 ShellTreeView 接受 ShellListView 拖放动作,你可以根据需要进行修改即可。突然想學Delphi的新手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
高階會員 發表:13 回覆:145 積分:151 註冊:2005-03-14 發送簡訊給我 |
|
tahoo
一般會員 發表:22 回覆:19 積分:8 註冊:2003-05-13 發送簡訊給我 |
源碼如下:
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 |
tahoo
一般會員 發表:22 回覆:19 積分:8 註冊:2003-05-13 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |