Reprogramas teclas

[artu01]

Gente:
Como hago para reprogramar las teclas, es decir estando en la pantalla principal el cliente
no quiere perder tiempo dando click con el mouse para abrir una opcion del menu....quiere hacerlo
directamente con teclado

Gracias

[cnavarro]

Code: Select all  Expand view

            MENUITEM "Mi Item" + Chr( 9 ) + "Ctrl+N" ;
              ACTION MyAction() ;
              ACCELERATOR ACC_CONTROL, Asc( "N" )
 

[acuellar]

Fuera del menú con teclas de función así

Code: Select all  Expand view

SetKey( VK_F11, { || MyAccion() } )  
 

[artu01]

Excelente muchachos funciona

Gracias

[artu01]

Otra pregunta Saben cual es el codigo para capturar las flechas izquierda, derecha y abajo del teclado?
Son las mismas que de las tablas ASCII ?

[acuellar]

Aqui con la ventana principal

Code: Select all  Expand view

 oWnd:bKeyDown:= { |nKey| if(nkey= 37,Izquierda(), ),if(nkey= 38,Arriba(), ) ,if(nkey= 39,Drcha(), ),if(nkey= 40,Abajo(), ) }
 

[artu01]

Gracias por responder aCuellar
la reprogramacion de flechas de izquierda y derecha era para que se ordene la columna en el xbrowse a la cual me moviese pero opte por
utilizar la tecla F11 para lograr aquello.

Gracias