Page 1 of 1

Menu en Dialogo usando boton derecho del mouse

PostPosted: Thu Jun 08, 2017 5:43 pm
by Compuin
Saludos foro

Es posible desplegar un menu popup sobre un dialogo pulsando el boton derecho del mouse?

Atento

Re: Menu en Dialogo usando boton derecho del mouse

PostPosted: Thu Jun 08, 2017 5:55 pm
by cnavarro
Si
Code: Select all  Expand view


.../...

      oDlg:bRClicked   := { | nR, nC |  Menu1(  nR, nC ) }

.../...

//----------------------------------------------------------------------------//

Function Menu1( nR, nC )

   local oMenu

   MENU oMenu POPUP
      MENUITEM "Item 3 1"
      SEPARATOR
      MENUITEM "Item 3 2"
      MENUITEM "Item 3 3"
   ENDMENU
   // Suponemos que la variable oDlg es estática, sino, pasásela como parámetro a esta function
   ACTIVATE MENU oMenu OF oDlg AT nR, nC

Return oMenu

//----------------------------------------------------------------------------//

 

Re: Menu en Dialogo usando boton derecho del mouse

PostPosted: Thu Jun 08, 2017 6:11 pm
by Compuin
Muchas gracias Cristobal