이종빈 님이 쓰신 글 :
: 다음은 하나의 TreeView내에서 항목간 이동하는 예제입니다..
: 참고하세여.. 그럼.. 즐프~
:
: void __fastcall TForm1::TreeView1DragDrop(TObject *Sender,TObject *Source, int X, int Y)
: {
:   TNodeAttachMode    attachMode;
:   TTreeNode *destNode, *selNode;
:    
:   if(Source->ClassNameIs("TTreeView") && Sender->ClassNameIs("TTreeView")) {
:     destNode = TreeView1->GetNodeAt(X, Y);    // destinataion node
:     selNode = TreeView1->Selected;             // selected node
:
:     if(!destNode) return;
:     if(selNode == destNode) {
:         Application->MessageBox("같은 곳으로는 이동할 수 없습니다.", "Error",
:                                            MB_ICONERROR|MB_OK);
:         return;
:     }
:
:     attachMode = naInsert;        // Insert the node before the destination node.
:     selNode->MoveTo(destNode, attachMode);
:
:     TreeView1->FullExpand();
:   }
:
: }
: