Fórum exibir exception num messagebox #328801

06/09/2006

0

Delphi

oi pessoal,

tenho um código tipo

try
...meu codigo
except
showmessage(´deu erro´);

agora eu queria exibir na mensagem algo tipo showmessage(exception) exibir o erro !
Do mesmo jeito que aparece quando o debug do delphi
tá ativado na execução.


Josinaldo

Josinaldo

Responder

Posts

06/09/2006

Marcelo_mileris 

Try
{ Comandos }
Except on E:Exception do
  begin
    Application.MessageBox(PChar(´Erro: ´ + E.Message),´Erro´,mb_ok + mb_iconerror);
  end;
end;



Responder

Gostei + 0

06/09/2006

Josinaldo

Obrigado Marcelo ! Era isso mesmo que eu precisava.

Try
{ Comandos }
Except on E:Exception do
  begin
    Application.MessageBox(PChar(´Erro: ´ + E.Message),´Erro´,mb_ok + mb_iconerror);
  end;
end;



Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar