Raise Exception.Create(´´); Não exibe a mensagem!

Question

Bom é o seguinte no OnValidate de um Field coloquei o comando raise e o exception.create, mas a mensagem nao é exibida.[code:1:8ef1de0dbf]procedure Tdmdados.clienteCLINOMEValidate(Sender: TField);begi...

Ara.es · Answer

Tente programar o evento OnReconcileError do ClientDataSet, escreva um código para exibir a mensagem:

Exemplo:

1	`ShowMessage(E.Message);`

Veja se funciona!! Flw!

Lehapan · Answer

utilize o [code:1:2b75ba783e]DatabaseError( ´Sua mensagem´ );[/code:1:2b75ba783e]espero ter ajudado....

Xtreme · Answer

Bom tentei utilizar os exemplos citados mas nao obtive sucesso.
É estranho pois quando rodo o sistema pelo delphi a execao é criada, mas somente pelo executavel nao.

Uso delphi 7 e WinXP.

Se alguem tiver uma luz.

Marco Salles · Answer

Bem .. Se existir algum Bloco Try Except protegendo o Bloco
nenhuma mensagem sera Exibida

Por exemplo

procedure TForm1.Button2Click(Sender: TObject);
begin
try
 if edit1.Text = ´´ then
 Raise exception.Create(´erro´);
except
 end;
end;

Tb existe alguma configuraçoes Na IDE que inibi a Mensagem de Erro
mas no Delphi ... Pelo que vc esta dizendo no Delphi aparece a Mensagem
no Aplicativo não informa Nada

Paleativo , para isto é vc usar
Showmessage(´´) seguido do Abort < Exceção Silenciosa >

Xtreme · Answer

Nao, nao existe nenhum bloc de try except protegendo, e me equivoquei ao falar que pelo delphi aparece a mensagem, na realida ocorre a execao, mas nao é exibida a mensagem.

O estranho é que em outras aplicacoes que possuo isso funcionaca tranquilamente, sem problema algum.

A maneira que vc me passou funciona, fico grato pela ajuda, mas ainda sim, quero entender o que está causando essa falha.

.lg. · Answer

Eu costumo usar :[code:1:aee4f1b935]Application.MessageBox(PChar(´Deu erro... se vira!!!´), Pchar(´Erro´), MB_OK+MB_ICONERROR);[/code:1:aee4f1b935]É muito bom. Eu gosto. [b:aee4f1b935]MessageBox[/b:aee4f1b935] vem da unit Forms.Espero que ajude.Att,.lg....

Fórum Raise Exception.Create(´´); Não exibe a mensagem! #369795