>* 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. >Caroline,
&& 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