Podeis mirar porque no se ejecutan las acciones en un menu creado desde un dialogo ?
- Code: Select all Expand view
#include "FWCE.ch"
//----------------------------------------------------------------------------
function Main()
local oWnd
DEFINE DIALOG oWnd FROM 0,0 TO 5, 25 TITLE 'Menu en Dialog'
ACTIVATE DIALOG oWnd CENTERED ;
ON INIT oWnd:SetMenu( BuildMenu() )
return nil
//----------------------------------------------------------------------------
function BuildMenu()
local oMenu
DEFINE MENU oMenu RESOURCE 102
REDEFINE MENUITEM ID 110 OF oMenu ACTION MsgInfo( "First" )
REDEFINE MENUITEM ID 120 OF oMenu ACTION MsgInfo( "Second" )
return oMenu
//----------------------------------------------------------------------------
Fichero *.rc
- Code: Select all Expand view
#ifdef _CE
#include "c:\vce\include\arm\windows.h"
#include "c:\vce\include\arm\commctrl.h"
#endif
#define I_IMAGENONE (-2)
#define IDS_HELP 104
#ifdef _CE
102 RCDATA
BEGIN
102, 2,
I_IMAGENONE, 110, TBSTATE_ENABLED, TBSTYLE_AUTOSIZE, 202, 0, 0,
I_IMAGENONE, 120, TBSTATE_ENABLED, TBSTYLE_AUTOSIZE, 203, 0, 0,
END
#endif
STRINGTABLE DISCARDABLE
BEGIN
202 "First"
203 "Second"
END
102 MENU DISCARDABLE
BEGIN
MENUITEM "", 110
MENUITEM "", 120
END
Gracias
