un programa con clave al iniciar

[soyhugo]

DatosOk := VentanaAcceso.ShowModal = ID_OK;

//esto es cuando ya has cerrado.

[roman]

Empezado por soyhugo

DatosOk := VentanaAcceso.ShowModal = ID_OK;

ShowModal es una función y su valor depende del valor que utilices en la propiedad ModalResult del formulario, por ejemplo mrOk o mrCancel. En la línea anterior VentanaAcceso.ShowModal = ID_OK no es una asignación sino una comparación y, por tanto, evalúa a un booleano. De ahí que puedas asignarlo a la variable DatosOK.

Y por cierto, algo de lo que quizá no estés al tanto:

Normalmente, cuando presentamos una ventana modal, basta asignar a los botones "Aceptar" y "Cancelar" el correspondiente valor de ModalResult para que el formulario se cierre en cuanto se oprima uno de ellos. Sin embargo, cuando el formulario se presenta como ventana única (tal es el caso del formularo de inicio) esto no es así y debes tú mismo escribir el código para cerrar el formulario y asignar ModalResult.

// Saludos

[KayserSoze]

y porque el form principal es de la la clave?

[soyhugo]

mirando el códgi ya sabía que lo que hacías era una comparación, claro está no se ve el código donde supestamente se hacía la asignación del valor devuelto. imaginé que sería en una propiedad modalresult del formulario, pues ya me he leído las ayudas antes de preguntar en el foro, para intentar hacer preguntas solo cuando sea necesario y no molestar. eso sí, como no veía la propiedad modal result del formulario, pues no he caído a que no está visible en el object inspect sino directamente al pner el .

gracias.
pero una simple tontería, si los valores a asignar son mrOk, mrCancel, ¿cómo es que estás comparando con id_ok, que por la ayuda no he visto que estuviera definido?

[roman]

Empezado por soyhugo

¿cómo es que estás comparando con id_ok, que por la ayuda no he visto que estuviera definido?

En realidad puedes hacer la comparación con mrOk y mrCancel, es lo mismo. ID_OK, ID_CANCEL, etc, son los nombres de constantes que usa Windows y por alguna razón que no acabo de entender me acostumbré a usar éstas al comparar el valor de regreso.

// Saludos