Este codigo no funciona. La clausula VALID no chuta desde el control.
Code: Select all
// FiveWin for Pocket PC - Building the main window
#include "FWCE.ch"
//----------------------------------------------------------------------------//
function Main()
local oWnd
DEFINE WINDOW oWnd TITLE "Tutor02"
@ 5, 15 BUTTON "&Exit" SIZE 60, 30 ACTION oWnd:end()
ACTIVATE WINDOW oWnd ;
ON CLICK MsgInfo( "Click!" ) ;
VALID MsgYesNo( "Want to End ?" )
return nil
//----------------------------------------------------------------------------//