Delphi - Capturar EDBEditError

Estoy tratando de capturar la excepción EDBEditError en una EditMask, con la máscara LLLL00000. Ya intenté con un try...except, pero no captura el error. Qué puedo hacer???
De antemano, Gracias!

Imagino que puedes interceptar esa excepción a nivel de aplicación en el evento OnException. La forma más fácil de asignar un procedimiento para manejar ese evento es usando el componente ApplicationEvents (pestaña "Additional" en la Paleta de Componentes) si es que viene en tu versión de Delphi, si no, tendrás que asignar el evento programáticamente (mira el ejemplo en la ayuda del evento OnException del objeto TApplication).

Como sea, en el manejador del evento OnException, Sender es el objeto que lanzó la excepción, y E es la excepción. Llama a Application.ShowException(E) si quieres mostrar el diálogo estándar para la excepción, y no hagas nada si no quieres mensaje alguno. También puedes definir tus mensajes personalizados. Ejemplo:

procedure TForm1.AppException(Sender: TObject; E: Exception);
begin
if E is EDBEditError then
with Sender as TMaskEdit do
Application.MessageBox(PChar(Format(
'El valor "%s" es incompatible con la máscara "%s".',
[Text, EditMask]), PChar(Application.Title),
MB_OK + MB_ICONSTOP)
else
Application.ShowException(E)
end;

Espero que te sirva.

Ernesto De Spirito
http://www.latiumsoftware.com/es/index.php

Ya lo intenté, pero ni así puedo interceptar esa excepción. De cualquier manera aprecio mucho tu ayuda, y pues seguiré intentando se otras maneras. Gracias!

A ver, prueba esto que a mí me funciona perfectamente:

type
TForm1 = class(TForm)
:
:
procedure FormCreate(Sender: TObject);
protected
procedure AppException(Sender: TObject; E: Exception);
:
:
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnException := AppException;
end;

procedure TForm1.AppException(Sender: TObject; E: Exception);
begin
if E is EDBEditError then
if Sender is TDBEdit then
Application.MessageBox(PChar(Format(
'El valor "%s" es incompatible con la máscara "%s".',
[TDBEdit(Sender).Text, TDBEdit(Sender).Field.EditMask])),
PChar(Application.Title),
MB_OK + MB_ICONSTOP)
else
Application.ShowException(E)
else
Application.ShowException(E)
end;

Ernesto De Spirito
http://www.latiumsoftware.com/es/index.php