CPP_RAD_Ejercicio07

/* ej07_EventosForma
Ejemplo para usar los eventos que contiene una forma
usando RadC++ */
#include <radc++.h>

//create new form
Form Form1("Eventos Forma - RAD C++ Ejemplo");

//create new procedure for form, procedure1 is procedure name
FormProcedure procedure1 (FormProcArgs) {

        //capture event ON_CLOSE which is fired when form is closed, [X] is clicked
        ON_CLOSE() {
                //show simple message box
                Form1.msgBox("Estoy saliendo");
                //exit application
                Application.close();
        }

        //always return 0
        return 0;
}

//rad c++ main program
rad_main()

        //attach the created procedure with form
        Form1.procedure = procedure1;

rad_end()