event RClick ()
Fired when right mouse button is clicked.

TypeDescription
The RClick event is fired each time the user releases the right mouse button over the control. Use the MouseUp event in case you need the position of the cursor when right clicking the control.

Syntax for RClick event, /NET version, on: 

private void RClick(object sender)
{
}


Private Sub RClick(ByVal sender As System.Object) Handles RClick
End Sub

Syntax for RClick event, /COM version, on: 

private void RClick(object sender, EventArgs e)
{
}


void OnRClick()
{
}


void __fastcall RClick(TObject *Sender)
{
}


procedure RClick(ASender: TObject; );
begin
end;


procedure RClick(sender: System.Object; e: System.EventArgs);
begin
end;


begin event RClick()
end event RClick


Private Sub RClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RClick
End Sub


Private Sub RClick()
End Sub


Private Sub RClick()
End Sub


LPARAMETERS nop



PROCEDURE OnRClick(oRecord)
RETURN

Syntax for RClick event, /COM version (others), on: 

<SCRIPT EVENT="RClick()" LANGUAGE="JScript">
</SCRIPT>


<SCRIPT LANGUAGE="VBScript">
Function RClick()
End Function
</SCRIPT>


Procedure OnComRClick 
	Forward Send OnComRClick 
End_Procedure


METHOD OCX_RClick() CLASS MainDialog
RETURN NIL


void onEvent_RClick()
{
}


function RClick as v ()
end function


function nativeObject_RClick()
return

The following VB sample displays a message when user right clicks the control:

Private Sub Record1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If (Button = vbRightButton) Then
        Dim e As EXRECORDLibCtl.Editor
        Set e = Record1.EditorFromPoint(X / Screen.TwipsPerPixelX, Y / Screen.TwipsPerPixelY)
        If Not e Is Nothing Then
            MsgBox e.Label
        End If
    End If
End Sub

The following VC sample displays a message when user right clicks the control:

void OnMouseUpRecord1(short Button, short Shift, long X, long Y) 
{
	if ( Button == 2 )
	{
		CEditor editor = m_record.GetEditorFromPoint( X, Y );
		if ( editor.m_lpDispatch != NULL )
		{
			TCHAR szOutput[1024];
			wsprintf( szOutput, "%s", (LPCTSTR)editor.GetLabel() );
			::MessageBox( NULL, szOutput, NULL, NULL );
		}
	}
}