Fórum Exceções #205271

Olá,

Quero em um formulário tratar erros do seguinte tipo:

campo sem valor;
data incorreta;

porém quero que aparareça mensagens personalizadas, li um artigo sobre como tratar erros com o try/except, neste artigo mostra como usar o componente ApplicationEvents, e codificar o item OnExecption, como quero que apareça mensagens de erro diferente, tem como colocar um if ou case nesta propriedade, tipo:

procedure TFormCad.ApEventDataException(Sender: TObject;
E: Exception);
begin
if (Execption = ´EConvertError´) then
MessErroData.ShowModal;
if (Execption = ´EDivByZero´) then
MessErro.ShowModal;

end;


Valeu