>>* MouseDown() >>Lparameters nButton, nShift, nXCoord, nYCoord >> >>*-- This just stops the selection/deselection. >>*-- However the RightClick still runs. >>If nButton = 2 >> NoDefault >>EndIf >> >>* RightClick() >>ThisForm.cmdeMail.Click() &&Perform desired RightClick action. >>>
>&& MouseDown >LPARAMETERS nButton, nShift, nXCoord, nYCoord > >do case >case inlist(nButton, 2) && Right) > NODEFAULT && prevents the selection/Deselection > >endcase >>
>&& MouseUp >LPARAMETERS nButton, nShift, nXCoord, nYCoord > >do case >case inlist(nButton, 2) && Right) > NODEFAULT && prevents the RightClick() > >endcase >