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()