How add a menu for a dialog ?
Someone can help me Thanks
MenuItem "&Nacimiento" action ::nacimiento( 0 ) ACCELERATOR 0, VK_F5
MenuItem "&Nacimiento" action ::nacimiento( 0 ) ACCELERATOR ACC_NORMAL, VK_F5
ACCELERATOR ACC_ALT, VK_F5
#Include "FiveWin.Ch"
STATIC oWnd
FUNCTION Main()
LOCAL cTitle := "Teste de <F5>"
DEFINE WINDOW oWnd TITLE cTitle ;
MENU BuildMenu( ) MENUINFO 3 MDI
ACTIVATE WINDOW oWnd
RETURN NIL
FUNCTION BuildMenu()
LOCAL oMenu, oMenu1, oMenu2, oMenu3
MENU oMenu
MENUITEM oMenu1 PROMPT "&Guardar - <F2> " ;
ACTION Grabar() ;
ACCELERATOR 0, VK_F2 ;
MESSAGE "Guarda los dados"
MENUITEM Omenu2 PROMPT "&Clientes - <F5> "
MENU
MENUITEM oMenu2 PROMPT "&Clientes - <F5> " ;
ACTION Clientes() ;
ACCELERATOR 0, VK_F5 ; // funciona bien.
MESSAGE "Grabar Clientes"
ENDMENU
MENUITEM oMenu3 PROMPT "&Salida <Alt+S> " ;
ACTION( oWnd:End() ) ;
MESSAGE "Salida"
ENDMENU
RETURN( oMenu)
FUNCTION Grabar()
? [GRABAR]
RETURN NIL
FUNCTION Clientes()
? [CLIENTES]
RETURN NIL
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: Google [Bot] and 13 guests