各位先進好:
小弟在動態TreeView中有很多node,經常需要把node
搬到另一個node,有點像拖曳那樣,但是我是用popupMenu1
的方式新增"複製"及"貼上"請問我程式碼應該如何下手呢??
先謝謝各位大大嘍

------
努力往往是甘苦的!!一起勉勵

多利用站内资料，可参考以下有你想要的资料

http://delphi.ktop.com.tw/board.php?cid=31&fid=79&tid=44484
或直接站内搜：treeview
===================引 用 nokib2002 文 章===================
各位先進好:
小弟在動態TreeView中有很多node,經常需要把node
搬到另一個node,有點像拖曳那樣,但是我是用popupMenu1
的方式新增"複製"及"貼上"請問我程式碼應該如何下手呢??
先謝謝各位大大嘍

1. 
   deity你好:
   我有站內搜尋,有找到可以拖曳的文章,但我是想要新增複製及貼上功能
   我有用popupMenu1的方式,可是不知如何下手.還有我造下列程式碼編譯
   我的TreeView無法拖曳,明明compilier可以過,請教各位大大了..
   
   [code cpp]
   void __fastcall TEMForm::RzTreeView1DragDrop(TObject *Sender,TObject *Source, int X, int Y)
   [/code]
   
   
   ===================引 用 deity 文 章===================
   多利用站内资料，可参考以下有你想要的资料
   
   http://delphi.ktop.com.tw/board.php?cid=31&fid=79&tid=44484
   或直接站内搜：treeview
   ===================引 用 nokib2002 文 章===================
   各位先進好:
   小弟在動態TreeView中有很多node,經常需要把node
   搬到另一個node,有點像拖曳那樣,但是我是用popupMenu1
   的方式新增"複製"及"貼上"請問我程式碼應該如何下手呢??
   先謝謝各位大大嘍
2. {
3. if(Source==NULL)
4. return;
6. TTreeNode *Sourcenode = RzTreeView1->Selected;
7. TTreeNode *Targetnode = RzTreeView1->DropTarget;
8. TTreeNode *node;
9. if(Targetnode == NULL)
10. return;
12. //搬移
13. TNodeAttachMode AttachMode;
14. if(Source == RzTreeView1)
15. {
16. if(Targetnode->Level > 0)
17. {
18. switch(Sourcenode->Level)
19. {
20. case 0:
21. break;
22. case 1: //群組搬移
23. if(Sourcenode->AbsoluteIndex < Targetnode->AbsoluteIndex) //下移
24. {
25. if(Targetnode != Targetnode->GetNext() && Targetnode->GetNext()!=NULL) //是否有下一個群組
26. {
27. Targetnode = Targetnode->GetNext();
28. bool flag = false; //while迴圈結束旗標
29. if(Targetnode->Level==2)
30. {
31. flag = true;
32. }
33. while(flag) //找下一個群組
34. {
35. if(Targetnode != Targetnode->GetNext() && Targetnode->GetNext()!=NULL) //是否有下一個群組
36. {
37. Targetnode = Targetnode->GetNext();
38. if(Targetnode->Level==1)
39. {
40. flag = false;
41. }
42. }
43. else
44. {
45. flag = false;
46. }
47. }
48. if(Targetnode->GetNext()!=NULL) //是否有下一個群組
49. {
50. AttachMode = naInsert;
51. }
52. else
53. {
54. AttachMode = naAdd;
55. }
56. }
57. else
58. {
59. AttachMode = naAdd;
60. }
61. }
62. else //上移
63. {
64. if(Targetnode != Targetnode->GetPrev()) //是否有上一個群組
65. {
66. AttachMode = naInsert;
67. }
68. else
69. {
70. AttachMode = naAddFirst;
71. }
72. }
73. if(Targetnode->Level==2)
74. {
75. Targetnode = Targetnode->Parent;
76. }
78. Sourcenode->MoveTo(Targetnode, AttachMode); //搬移
79. Sourcenode->Expand(true); //展開
80. break;
81. case 2: //裝置搬移
82. if(Targetnode->Level== 1) //搬移至群組移動到最後
83. {
84. node = RzTreeView1->Items->AddChild(Targetnode,Sourcenode->Text);
85. Targetnode->Expand(true);
86. RzTreeView1->Items->Delete(Sourcenode);
87. }
88. if(Targetnode->Level== 2)
89. {
90. if(Sourcenode->AbsoluteIndex < Targetnode->AbsoluteIndex) //下移
91. {
92. if(Targetnode->GetNext()!=NULL && Targetnode->GetNext()->Level==2)
93. {
94. Targetnode = Targetnode->GetNext();
95. AttachMode = naInsert;
96. }
97. else
98. {
99. AttachMode = naAdd;
100. }
101. }
102. else // 上移
103. {
104. AttachMode = naInsert;
105. }
106. Sourcenode->MoveTo(Targetnode, AttachMode); //搬移
107. }
108. break;
109. default:
110. break;
111. }
112. }
113. }
114. }

請在此區域輸入程式碼

------
努力往往是甘苦的!!一起勉勵

編輯記錄