COmo genero un mensaje antes de un Sysutils.Abort

[Bitbanner]

me puedes poner un ejemplo por favor no se como hacerlo, lo que yo tengo puesto es esto:



sysutils.Exception.Create('Debes de rellenar todos los campos en rojo');

y lo tengo puesto en la table en el evento BeforePost.


GRACIAS

[[Lepe]]

De acuerdo, creas la excepción, solo falta lanzarla al mercado laboral

raise Exception.Create("Rellena todos los campos en rojo ");

saludos

[Bitbanner]

ya lo he echo pero no mr sale nada de nadsa lo tengo de esta manera:

En el BeforePost de la table tengo puesto:

If (DataMopduleModuloDatos.AdoTableClientesNombre.IsNull = True) then
Begin
sysutils.exception.create ('debes de rellenar los rojos');
end;

GRACIAS Y PERDONAR MI INGENUIDAD

[roman]

Empezado por Bitbanner

ya lo he echo pero no mr sale nada de nadsa

No, no lo has hecho. Vuelve a leer con cuidado el mensaje de Lepe

// Saludos

[Bitbanner]

ya me sale pero me manda un erro y la aplicacion se para y tengo que iniciarla lo que me gustaria que saliera es un mensaje como si fuera de un Showmessage o un MessageDlg si no es mucho pedir y perdonarme !!!

[roman]

Si estás corriendo la aplicación desde el IDE entonces estás viendo el comportamiento normal: la aplicación se detiene en la línea donde ocurre la excepción y al continuar aparece tu mensaje. Esto no sucede si corres la aplicación independiente. También puedes ir al menú Tools|Debugger Options y en la ficha Language exceptions desmarcar la opción Stop on Delphi Exceptions para que no se detenga la aplicación al ejecutarla desde el IDE.

Si éste no es el problema entonces tendrás que explicar con más precisión.

// Saludos

[Bitbanner]

En el BeforePost de la table tengo puesto:

If (DataMopduleModuloDatos.AdoTableClientesNombre.IsNull = True) then
Begin
raise exception.create ('debes de rellenar los rojos');
end;


Pero lo que yo quiero decir es que si podria hacer esto para que me mostrara unmensaje como este:


En el BeforePost de la table tengo puesto:

If (DataMopduleModuloDatos.AdoTableClientesNombre.IsNull = True) then
Begin
ShowMessage ('Debes de rellenar los rojos')
raise exception.create;
end;