Question: as the event ButtonClick is defined in a Visual OOP environment?
Definition: ButtonClick is the event that happens when on the same object
it occurs the sequence of events ButtonMouseDown / ButtonMouseUp.
Without this definition the event ButtonClick is not right to exist.
Then the representation has memory because it has to remember
where ButtonMouseDown has happened.
Well ( badly! ), in VFP there is not memory
and the event ButtonClick on a form
it coincides with the event ButtonMouseUp.
Repro:
- run this
- hold down a button on the _SCREEN area
- move the mouse over the form1
- release the button
- the ButtonClick is fired !
PUBLIC oform1
oform1=NEWOBJECT("form1")
oform1.Show
RETURN
DEFINE CLASS form1 AS form
DoCreate = .T.
Caption = "BUG: Click events are wrong is MouseUp"
PROCEDURE Click
MESSAGEBOX("LEFTCLICK")
ENDPROC
PROCEDURE RIGHTClick
MESSAGEBOX("RIGHTClick")
ENDPROC
PROCEDURE MIDDLEClick
MESSAGEBOX("MIDDLEClick")
ENDPROC
ENDDEFINE
PS: in 3 days I have lost all the events of the mouse.
( look my previous Bugs )
I will have to redor everything with BINDEVENT(hwnd,)