Comrpobar datos introducidos por usuario

[senda]

Hola tengo un formulario muy simple en el que se piden varios datos al usuario. Al final del mismo he colocado un botón de "Aceptar". Antes de mostrar el siguiente formulario se realizan una serie de comprobaciones sobre los datos introducidos, en caso de encontrar algún error muestro un mensaje de aviso. El problema es que cuando pulso el botón aceptar del cuadro de mensaje de aviso, se muere tanto el cuadro de mensaje, como el formulario (se alcanza el end del porcedimiento asociado al evento 'onClick'). ¿Cómo puedo evitarlo? Es decir, ¿como puedo dejar el formulario como está tras detectar el error? Muchas gracias, sé que es una duda absurda, pero me he atascao.

[[Caral]]

Hola senda
No crees que se podria guiar uno un poco mas con el codigo del botoncito.?
Saludos

[ContraVeneno]

Si estas utilizando el evento OnClose para cerrar el formulario, verifica el parámetro Action de este evento, si lo estableces a "caNone", el formulario no se cerrará.

Otra opción es verificar en el evento OnCloseQuery del formulario y utilizar la opción "CanClose".

busca información sobre esto y encontrarás muchos resultados y formas de como solucionarlo.

[roman]

En verdad das pocos datos, senda. Pero supongo que tu situación es esta:

Abres el formulario con ShowModal y el botón Aceptar tiene puesta su propiedad ModalResult en mrOk. Luego de las comprobaciones, el ModalResult hace que se cierre el formulario independientemente de si hubo error o no.

Tampoco dices en qué parte estás poniendo el código de verificación, aunque lo usual es no hacerlo en el OnClick del botón sino en el evento OnCloseQuery del formulario. Este evento lleva un parámetro, CanClose, que te sirve para indicarle al formulario si ha de cerrarse o no. En caso de error, únicamente debes poner CanClose en false para evitar que se cierre.

Para saber si el usuario oprimió el botón Aceptar, cotejas el valor de ModalResult:

Código Delphi [-]
procedure TFormAlgo.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  if ModalResult = mrOk then
  begin
    if HayAlgunErrorEnLosDatos then
      CanClose := false;
  end;
end;

// Saludos

[senda]

Lo siento por ser tan poco específico y no proporcionar todos los datos oportunos. Efectivamente creo que los tiros van por donde dice roman puesto que mi boton tiene ModalResult en mrOk.

Empezado por roman

Tampoco dices en qué parte estás poniendo el código de verificación, aunque lo usual es no hacerlo en el OnClick del botón sino en el evento OnCloseQuery del formulario. Este evento lleva un parámetro, CanClose, que te sirve para indicarle al formulario si ha de cerrarse o no. En caso de error, únicamente debes poner CanClose en false para evitar que se cierre.

Muchas gracias soy bastante nuevo en Delphi y no tenía ni idea de la metodología a emplear en este tipo de situaciones.

[senda]

¿Quien lanza la ejecución del procediemiento FormCloseQuery?

He implementado la solución propuesta por roman, pero no consigo que se ejecute (he dejado el botón ACEPTAR sin ningún procedimiento asociado).

[senda]

Empezado por senda

¿Quien lanza la ejecución del procediemiento FormCloseQuery?

He implementado la solución propuesta por roman, pero no consigo que se ejecute (he dejado el botón ACEPTAR sin ningún procedimiento asociado).

Vale, lo he colocado en el evento OnCloseQuery del formulario. La única pega que se me plantea ahora, es que, ahora mismo, no hay ninguna diferencia entre pulsar el botón ACEPTAR y cerrar directamente el formulario. No entiendo muy bien cómo controlar esto con la propiedad ModalResult.

[[Lepe]]

FormCloseQuery lo lanza el propio Formulario cuando el usuario cierra de alguna forma la ventana.

Una ventana, como sabes, tienes varias formas de cerrarse:
- Boton X
- pulsando ctrl+ F4 en entornos MDI
- Usando el icono de la izquierda de la barra de título.
- Si tenemos algún botón que ordene cerrar o liberar de memoria la ventana.

Saludos

[roman]

Empezado por senda

no hay ninguna diferencia entre pulsar el botón ACEPTAR y cerrar directamente el formulario. No entiendo muy bien cómo controlar esto con la propiedad ModalResult.

Pero si es justo lo que dije después de

Empezado por roman

Para saber si el usuario oprimió el botón Aceptar, cotejas el valor de ModalResult:

// Saludos

[[egostar]]

Yo tengo una inquietud mas que pregunta, que gano yo al usar OnCloseQuery en lugar desolo OnClose.

Con el evento OnClose hago esto

Código Delphi [-]
 
if MessageDlg('¿ Realmente desea salir de Sistema ?', mtInformation,
     mbYesNOCancel, 0) = mrYes then  begin
     if validaPass then begin
        ShowMessage('Se ha solicitado salir de este proceso, '+
                    'es posible que pierda información y no será posible recuperarla');
        SioDTR(Port,'C');
        SioRTS(Port,'C');
        SioDone(Port);
        SioDone(Port1);
        Action := caFree;
     end
     else begin
            ShowMessage('Password invalido, intente de nuevo');
            Action := caNone;
          end;
  end
  else Action := caNone;
end;

y con el evento OnCloseQuery podría hacer esto

Código Delphi [-]
  
if MessageDlg('¿ Realmente desea salir de Sistema ?', mtInformation,
     mbYesNOCancel, 0) = mrYes then  begin
     if validaPass then begin
        ShowMessage('Se ha solicitado salir de este proceso, '+
                    'es posible que pierda información y no será posible recuperarla');
        SioDTR(Port,'C');
        SioRTS(Port,'C');
        SioDone(Port);
        SioDone(Port1);
        CanClose := True;
     end
     else begin
            ShowMessage('Password invalido, intente de nuevo');
            CanClose := False;
          end;
  end
  else  CanClose := False;
end;

Pero mi inquietud es ¿que es mejor?

Usar el evento OnCloseQuery ó el evento OnClose.

Salud OS.

[senda]

Empezado por roman

Pero si es justo lo que dije después de

Cierto, llevas razón, me hice un lío al situar la función ShowMessage (para comprobar por qué código se ejecutaba en cada momento). Funciona a la perfección, muchas gracias.