exibir exception num messagebox

Delphi

06/09/2006

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

Curtidas 0

Respostas

Marcelo_mileris

Marcelo_mileris

06/09/2006

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



GOSTEI 0
Josinaldo

Josinaldo

06/09/2006

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;



GOSTEI 0
POSTAR