Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Coloboración Paypal con ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #4  
Antiguo 05-06-2007
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Poder: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
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
Responder Con Cita
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Grabar datos definodos por el usuario en B.D frankmch Conexión con bases de datos 8 05-12-2007 18:46:58
Recuperar Datos de Usuario esimon Windows 5 25-04-2006 18:39:31
¿Cómo obtener y manejar datos del usuario activo? JaviP Firebird e Interbase 3 13-05-2005 23:28:04
duda agreando usuario a la base de datos alachaise PHP 1 26-11-2004 22:58:48
Mejor Base de datos en Usuario GeoAvila Conexión con bases de datos 1 02-04-2004 02:16:59


La franja horaria es GMT +2. Ahora son las 20:45:21.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi