FIX: Shape Control's Mouseup Incorrectly Fired by Form Click (134392)


The information in this article applies to:

  • Microsoft Visual FoxPro for Windows 3.0
  • Microsoft Visual FoxPro for Windows 3.0b
  • Microsoft Visual FoxPro for Windows 5.0
  • Microsoft Visual FoxPro for Windows 5.0a
This article was previously published under Q134392

SYMPTOMS

After dragging and dropping a shape control on a form, the shape's mouseup event fires when you click anywhere in the form.

STATUS

Microsoft has confirmed this to be a problem in the Microsoft products listed at the beginning of this article. This has been corrected in Visual FoxPro 6.0.

MORE INFORMATION

Steps to Reproduce Problem

Run the following code: 
Run the following code:

PUBLIC f1
f1 = CREATEOBJ('obj')
f1.SHOW

DEFINE CLASS s1 AS shape

   PROCEDURE mousedown
      LPARAMETERS nButton, nShift, nXCoord, nYCoord
      this.drag(1)
   ENDPROC

   PROCEDURE mouseup
      LPARAMETERS nButton, nShift, nXCoord, nYCoord
      WAIT WINDOW 'Shape MouseUp'
   ENDPROC

ENDDEFINE

DEFINE CLASS obj AS form
   ADD OBJECT obj AS s1

   PROCEDURE mouseup
      LPARAMETERS nButton, nShift, nXCoord, nYCoord
      WAIT WINDOW 'Form MouseUp'
   ENDPROC
ENDDEFINE

* Drag the shape to a new location and drop it.
Modification Type:MajorLast Reviewed:5/7/2003
Keywords:kbBug kbfix KB134392
©2002 Microsoft Corporation. All rights reserved.