🚀 go-pugleaf

Jos� wrote:
>> It looks like you will need to set the drag manually. In the MouseDown 
>> of the Edit1 set the drag mode to true, in the MouseOver of Edit2 allow 
>> accepting, and in the DragDrop (I think) of Edit 2 do your data 
>> manipulation.
> 
> The compiler complains if I set DragMode to a Boolean. Besides, it
> makes it impossible to edit data. But worse, your suggestion seems to
> imply that the program must know in advance whether the user intends
> to drag from Edit1 to Edit2 or the other way around.

 From BCB Help Files:
void __fastcallTFMForm::FileListBox1MouseDown(TObject *Sender,
   TMouseButton Button, TShiftState Shift, int X, int Y)
{
   if (Button == mbLeft)	// drag only if left button pressed
   {
     TFileListBox *pLB = (TFileListBox *)Sender; // cast to TFileListBox
     if(pLB->ItemAtPos(Point(X,Y), true) >= 0) // is there an item here?
       pLB->BeginDrag(false);                   // if so, drag it
   }
}

void __fastcallTForm1::TreeView1DragOver(TObject *Sender, TObject *Source,

   int X, int Y, TDragState State, bool &Accept)
{
   if (Source->InheritsFrom(__classid(TFileListBox)))
     Accept = true;
}

void __fastcall TForm1::TreeView1DragDrop(TObject *Sender, TObject *Source,
int X, int Y){

   if (Source->InheritsFrom(__classid(TFileListBox)))
   {
     TTreeNode *pNode = TreeView1->GetNodeAt(X,Y); // pNode is drop target
     AnsiString NewFile = pNode->Text + AnsiString("/") +
       ExtractFileName(FileList->FileName); // build file name for drop 
target
     MoveFileEx(FileList->FileName.c_str(), NewFile.c_str(),
       MOVEFILE_REPLACE_EXISTING | MOVEFILE_COPY_ALLOWED); // move the file
   }
}


What does all this mean:

Edit1OnMouseDown
	Edit1->BeginDrag(true);

Edit2DragOver
	if (Source == Edit2) { Accept = true; }

Edit2DragDrop
	Edit2->Text = Edit1->Text;

There are things about the mouse cursor that you also need to do 
manually but I'm unable to remember all at this time. But look up 
drag-drop operations in the Help files.

DC