When the first MouseDown happen into a form's member,
only when the last button is released
a fall of events is produced.

The interactivity one is dead.

Repro:
- Hold Left Mouse Button on the form
- Form.MouseDown consume the event immediately
- Hold Right Mouse Button on the form
- Form.MouseDown consume the event immediately
- Release Right Mouse Button on the form
- Form.MouseUp consume the event immediately
- Form.RighClick is called
- Release Left Mouse Button on the form
- Form.MouseUp consume the event immediately
- Form.Click is called

- go over the green container
- Hold Left Mouse Button on the container
- container.MouseDown consume the event immediately
- Hold Right Mouse Button where you want
- everything is silent
- Release Right Mouse Button where you want
- everything is silent
- Release Left Mouse Button where you want
- various events can to consume the queued mouse messages
- ....
- container.MouseUp consume the event the queued mouse message
- container.Click is called

PUBLIC oform1

oform1=NEWOBJECT("form1")
oform1.Show
RETURN

DEFINE CLASS form1 AS form

	DoCreate = .T.
	Caption = "MDOWN stop events into a form's member"
	Name = "Form1"

	ADD OBJECT container1 AS container WITH ;
		Top = 24, ;
		Left = 22, ;
		Width = 149, ;
		Height = 211, ;
		BackColor = RGB(128,255,0), ;
		Name = "Container1"

	PROCEDURE MouseDown
		LPARAMETERS nButton, nShift, nXCoord, nYCoord
		DEBUGOUT "FORM MOUSEDOWN",nButton, nShift, nXCoord, nYCoord
	ENDPROC

	PROCEDURE Init
		ACTIVATE WINDOW "DEBUG OUTPUT"
	ENDPROC


	PROCEDURE MouseUp
		LPARAMETERS nButton, nShift, nXCoord, nYCoord
		DEBUGOUT "FORM MOUSEUP",nButton, nShift, nXCoord, nYCoord
	ENDPROC


	PROCEDURE RightClick
		DEBUGOUT "FORM RIGHCLICK"
	ENDPROC


	PROCEDURE Click
		DEBUGOUT "FORM CLICK"
	ENDPROC


	PROCEDURE container1.MouseDown
		LPARAMETERS nButton, nShift, nXCoord, nYCoord
		DEBUGOUT "CONTAINER MOUSEDOWN",nButton, nShift, nXCoord, nYCoord
	ENDPROC


	PROCEDURE container1.MouseUp
		LPARAMETERS nButton, nShift, nXCoord, nYCoord
		DEBUGOUT "CONTAINER MOUSEUP",nButton, nShift, nXCoord, nYCoord
	ENDPROC


	PROCEDURE container1.Click
		DEBUGOUT "CONTAINER CLICK"
	ENDPROC


	PROCEDURE container1.RightClick
		DEBUGOUT "CONTAINER RIGHCLICK"
	ENDPROC


ENDDEFINE