Is this what you are after?
<code>
oFrm = CREATEOBJECT("cFrm")
oFrm.Show()
READ EVENTS
DEFINE CLASS cFrm as Form
ADD OBJECT txt1 as textbox WITH value = "Hello World"
ADD OBJECT txt2 as textbox WITH top = 40
PROCEDURE Destroy
CLEAR EVENTS
ENDPROC
PROCEDURE txt1.MouseEnter
LPARAMETERS nButton, nShift, nXCoord, nYCoord
THIS.AddProperty("MDown",MDOWN())
ENDPROC
PROCEDURE txt1.MouseDown
LPARAMETERS nButton, nShift, nXCoord, nYCoord
IF nButton = 1
THIS.Drag(1)
ENDIF
ENDPROC
PROCEDURE txt1.MouseUp
LPARAMETERS nButton, nShift, nXCoord, nYCoord
THIS.Drag(0)
ENDPROC
PROCEDURE txt2.DragDrop
LPARAMETERS oSource, nXCoord, nYCoord
THIS.Value = oSource.Value
ENDPROC
ENDDEFINE
</code>
Tracy Pearson
PowerChurch Software
828-665-1818
_______________________________________________
Post Messages to: [email protected]
Subscription Maintenance: http://leafe.com/mailman/listinfo/profox
OT-free version of this list: http://leafe.com/mailman/listinfo/profoxtech
** All postings, unless explicitly stated otherwise, are the opinions of the
author, and do not constitute legal or medical advice. This statement is added
to the messages for those lawyers who are too stupid to see the obvious.
