eXontrol Software - Detail/Record Container ActiveX, NET Control

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.

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 );
		}
	}
}

Send comments on this topic.