Description
Returns a reference to the control that triggered a drag event.
Obsolete function
You no longer need to call the DraggedObject function in a drag event. Use the event's source argument instead.
Syntax
DraggedObject ( )
Return value
DragObject, a special datatype that includes all draggable controls (all the controls but no drawing objects). Returns a reference to the control that is currently being dragged.
No control
If no control is being dragged, an execution error message is displayed.
Usage
Call DraggedObject in a drag event for the target object. The drag events are DragDrop, DragEnter, DragLeave, and DragWithin. Use TypeOf to obtain the datatype of the control. To access the properties of the control, you can assign the DragObject reference to a variable of that control's datatype (see the example).
Examples
These statements set which_control equal to the datatype of the control that is currently being dragged, and then set ls_text_value to the text property of the dragged control:
SingleLineEdit sle_which
CommandButton cb_which
string ls_text_value
DragObject which_control
which_control = DraggedObject()
CHOOSE CASE TypeOf(which_control)
CASE CommandButton!
cb_which = which_control
ls_text_value = cb_which.Text
CASE SingleLineEdit!
sle_which = which_control
ls_text_value = sle_which.Text
END CHOOSESee also
