Comrpobar datos introducidos por usuario

[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.

[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

[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.

[[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

[[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.