Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Drag & Drop Questions
Message
General information
Forum:
Visual FoxPro
Category:
COM/DCOM and OLE Automation
Miscellaneous
Thread ID:
00593901
Message ID:
00593960
Views:
27
Caroline,

>What I do is somethig along these lines.

Thank you for your help. Unfortuantly, I'm trying to do things the hard way. I need to do my processing in my source object with some data from my target object. I think I need to pass an object reference for that to work.

Now all I need to figure out is how to impliment drag & drop in an OLEControl.

>
>On the Source item set up a Data set of an array with the data you want to pass across.
>
>
<b>OLESetData</b>
>local laData[2]
>
>laData[1] = <SomeData>
>laData[2] = <SomeOtherData>
>oDataObject.SetData(@laData, "OLE Variant Array")
>
><b>OLEStartDrag</b>
>Lparameters oDataObject, nEffect
>
>oDataObject.ClearData
>oDataObject.SetFormat("OLE Variant Array")
>
>
>On the Target Check for the existence of the correct type of data then do something with it.
>
>
<b>OLEDragOver</b>
>If oDataObject.GetFormat("OLE Variant Array")
>	This.OLEDropHasData = 1
>	This.OLEDropEffects = 1
>	nEffect = 1
>EndIf
>
>
><b>OLEDragDrop</b>
>Local laData[1]
>
>If oDataObject.GetFormat("OLE Variant Array")
>	oDataObject.GetData("OLE Variant Array", @laData)
>	
>	... Do something with the data here.
>endif
>
>HTH
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform