>>Has anyone worked out a way to drag and drop an item from a grid (or perhaps a list box) to another object (in this case another grid) so I can figure out which record it was dragged from? The grid row it is dragged TO is not important, in this case. I just wanna add items to a grid by dragging them from another grid (or something that looks and acts like that)?
>>
>>TIA
>>
>>Michael
>
>Michael, it is not a big deal to DragDrop from Listbox since you know what is the current ListBox.Value, or DisplayValue
>
>*Listbox.MouseMove
>LPARAMETERS nButton, nShift, nXCoord, nYCoord
>if nButton = 1
>This.Drag()
>endif
>
>What about dragging from the grid, I actually drag not the textbox in the grid column, but invisible label on the form. Label has the proper DragIcon property.
>
> **** grid.column1.textbox1.MouseDown()
> LPARAMETERS nButton, nShift, nXCoord, nYCoord
> thisform.lblDrag.tag = anyValueIwantToCarry && Record ID, field value or specific code or whatever
> NODEFAULT
>
> **** grid.column1.textbox1.MouseMove()
> LPARAMETERS nButton, nShift, nXCoord, nYCoord
> NODEFAULT
>
> **** grid.MouseMove()
> LPARAMETERS nButton, nShift, nXCoord, nYCoord
> IF nButton = 1
> *next two lines are to move label in proper position to start Drag from
> Thisform.lblDrag.Left = nXCoord
> Thisform.lblDrag.Top = nYCoord
> Thisform.lblDrag.Drag()
> ENDIF
>
>HTH,
>
>Nick

Actually a sample Drag and Drop List Box is available and is shipped with VFP system and is ready to use. I do not know on list box