PRB: Dragmode=1 Stops Click and Other Mouse Events from Firing

   CLICK()
   MOUSEMOVE()
   MOUSEDOWN()
   MOUSEUP()
				

WORKAROUND

To have more control over dragging, set the DRAGMODE property to zero for manual mode. Then in the MOUSEDOWN() event, call the CLICK() event and then call the DRAG() event passing a number one as a parameter to start the dragging operation.

Step-by-Step Example

1. Create a form, and place a check box and a text box on it.
2. Add the following code to the MOUSEDOWN() event of the check box:

      THIS.CLICK()
      THIS.DRAG(1)
   						

3. Add the following code to the CLICK() event of the check box:

      THIS.PARENT.TEXT1.VALUE="Click"
   						

4. Add the following code to the DRAGDROP() event of the text box:

      THIS.VALUE=OSOURCE.CAPTION
   						

5. Run the form.

Click the check box. In response, the text box should say "Click." Drag the check box on top of the text box. In response, the text box should say "Check1."