Tengo un problema que va a acabar conmingo y con mi paciencia
¿Como es posible que se ejecute un evento OnClick de un TDBCheckBox de un form creado de forma dinamica, antes de que se muestre el form y por tanto sin hacer click en el TDBCheckBox ?
Me explico, el TDBCheckBox tiene asociado un campo logical cuyo Default Value es false (esto lo defini en la tabla, al crearla con Database Desktop). Asi que dentro del Onclick del TDBCheckBox he añadido un código que lo que hace es comprobar si el campo esta marcado, es algo asi como:
if (CheckPrestamo->Checked==true)
{
EditPersona->Enabled=true;
EditFecha->Enabled=true;
}
else
{
if(MessageDlg("Estás a punto de eliminar un prestamo. \n¿Estás seguro?", mtWarning,TMsgDlgButtons() << mbYes << mbNo, 0) == mrYes)
....
lo que ocurre es que al crear el formulario (de forma dinaminca) siempre me salta el mensaje incluso antes de mostrarse el formulario. Pero lo mas raro del todo es que el mensaje se muestra solo si la tabla está completamente vacia, si tiene datos dentro, no salta el mensaje.
¿Me habeis entendido? Espero que si. Si alguien me puede echar una mano le estaria muy agradecido, y si está dispuesto a mirarme el codigo fuente mejor que mejor.
muchas gracias