AmouseObj() work well in design mode.
Try the following sample.
Click on the shape and while keeping the leftmouse pressed, drag over a form in desing mode.
On mouse up, the name of the control will be showed in a messagebox...
myForm=CREATEOBJECT('form1')
myForm.Show()
READ EVENTS
DEFINE CLASS form1 AS form
Top = 0
Left = 0
Height = 78
Width = 131
DoCreate = .T.
Caption = "Form1"
Name = "Form1"
ADD OBJECT shape1 AS shape WITH ;
Top = 24, ;
Left = 36, ;
Height = 24, ;
Width = 60, ;
Name = "Shape1"
PROCEDURE shape1.MouseUp
LPARAMETERS nButton, nShift, nXCoord, nYCoord
this.MousePointer=0
IF AMOUSEOBJ(myArray)=4 AND myArray[1]<>this
MESSAGEBOX("Object="+myArray[1].name)
ENDIF
ENDPROC
PROCEDURE shape1.MouseDown
LPARAMETERS nButton, nShift, nXCoord, nYCoord
this.MousePointer=4
ENDPROC
PROCEDURE QueryUnload
CLEAR EVENTS
ENDPROC
ENDDEFINE
>Yuri,
>I use AMOUSEOBJ(), but the trick is calling it. I can't seem to find any combination of events that will fire my code. The toolbox app that comes with VFP seems to be able to drop objects on a container class without requiring that every possible class that can have an object dropped on it have custom dragdrop code. Even when I put code in the dragdrop method, I can't get it to fire unless the form in running. How does one get the target form to run it's dragdrop code in design time? Thanks.
>
>Gary
>
>
>>I believe AMOUSEOBJ() and sys(1270)(which is " a reference to the object that is under the current mouse position") should help here.
>>
>>>Hi all,
>>>I'm trying to figure out how to recognise when the left mouse button has been released over a different form than the one where the mouse was pressed. I'm trying to drag from a listbox on one from and drop something on a form in the class designer. Right now it sort of works. When I release over the class being designed, nothing happens until I click on the class. Then my mouseup code runs and adds the object. I think I have tried every combination of drag(), mousemove(), etc. and I can't seem to trap that event over another form until I click on that form. It's possible to do this because the toolbox does it, but I cannot for the life of me figure out how they trap this event. Any ideas? Thanks.
>>>
>>>Gary
If we exchange an apple, we both get an apple.
But if we exchange an idea, we both get 2 ideas, cool...Gérald Santerre
Independant programmer - internet or intranet stuff - always looking for contracts big or small :)
http://www.siteintranet.qc.ca