Well when I say drag-and-drop I mean the OLE version :-)
for now until I understand this thing I use standard VFP controls:
http://www.cortiel.com/pcs/form1.pnglets look at Command2
oledragmode = 1
oledragover:
LPARAMETERS oDataObject, nEffect, nButton, nShift, nXCoord, nYCoord, nState
nEffect=1
oledropmode=1
olesetdata:
LPARAMETERS oDataObject, eFormat
DO CASE
CASE TRANSFORM(eFormat)='1'
oDataObject.SetData("American Flag",1)
CASE TRANSFORM(eFormat)='Private Format'
oDataObject.SetData(this.picture,"private format")
OTHERWISE
ENDCASE
olestartdrag:
LPARAMETERS oDataObject, nEffect
oDataObject.ClearData
nEffect=1
oDataObject.SetFormat(1)
oDataObject.SetFormat("Private Format")
thisform.OLEDropMode= 1
note: this american flag comes from one of the whitepages I found on this matter, I don't want to mess with the flag at all :-)
My intention is to be able to drag a button from the left sid into the white container control just lie we can do in the IDE on a form
but when I drag the cursor is a circle with a line through it telling me I cannot drop onto the container control
the container has a oledropmode of 1
>
>As I said, I think you'd be better off using OLE drag and drop. That said, how's the button configured for dragging?
>
>Tamar
Peter Cortiel