1
2 //---------------------------------------------------------------------------
3
4 #include <vcl.h>
5 #pragma hdrstop
6
7 #include "Unit1.h"
8 //---------------------------------------------------------------------------
9 #pragma package(smart_init)
10 #pragma resource "*.dfm"
11 TForm1 *Form1;
12 //---------------------------------------------------------------------------
13 __fastcall TForm1::TForm1(TComponent* Owner)
14 : TForm(Owner)
15 {
16 }
17 //---------------------------------------------------------------------------
18
19 void __fastcall TForm1::TreeView1MouseDown(TObject *Sender,
20 TMouseButton Button, TShiftState Shift, int X, int Y)
21 {
22 if (TreeView1->Items->Count > 0){
23 if (Button == mbLeft) {
24 TreeView1->BeginDrag(false); //begin drag
25 }
26 }
27 }
28 //---------------------------------------------------------------------------
29
30 void __fastcall TForm1::ListBox1DragOver(TObject *Sender, TObject *Source,
31 int X, int Y, TDragState State, bool &Accept)
32 {
33 Accept = (Sender == TreeView1);
34 }
35 //---------------------------------------------------------------------------
36 void __fastcall TForm1::ListBox1DragDrop(TObject *Sender, TObject *Source,
37 int X, int Y)
38 {
39 int dx;
40 TTreeNode* Node;
41 if (Source==TreeView1){
42 Node = TreeView1->Selected;
43 if (Node != NULL){
44 dx= ListBox1->ItemAtPos(Point(X,Y),false);
45 ListBox1->Items->Insert(dx,Node->Text);
46 }
47 Node->delete();
48 }
49
50 }
51 //---------------------------------------------------------------------------
|
