Caro amigos,
Eu consegui resolver o problema, fiz da seguinte forma:
1º: Coloquei o TApplicationEvents
2º: No evento OnException coloquei:
procedure TFrmPrincipal.AppEventosException(Sender: TObject; E: Exception);
begin
If Pos('FK',E.Message) > 0 then
MessageDlg('Existe(m) registros vinculados, não é possível
excluir.',mtWarning,[mbOk], 0)
Else If Pos('PK',E.Message) > 0 then
MessageDlg('Este código já existe na tabela.',mtWarning,[mbOk], 0)
Else
MessageDlg('Ocorreu um erro durante a utilização do sistema.'+#13+'Caso o
erro seja proveniente de uma falha do sistema entre em contato com o suporte
técnico.' +#13+ E.Message + '.', mtWarning,[mbOk], 0);
end;
Pronto!!!
----- Original Message -----
From: Andre Mesquita
To: delphi-br@yahoogrupos.com.br
Sent: Friday, August 11, 2006 2:35 PM
Subject: Re: [delphi-br] Mensagem em Portugues de FOREIGN KEY!
mas vc pode capturar o Erro no evento do TQuery ou do TDatabase.
Dá uma olhada no help pelo evento correto.
----- Original Message -----
From: "Gleidison S. Bertolini" <[EMAIL PROTECTED]>
To: <delphi-br@yahoogrupos.com.br>
Sent: Friday, August 11, 2006 12:36 PM
Subject: Re: [delphi-br] Mensagem em Portugues de FOREIGN KEY!
Moked - Tamara e André Mesquita,
Eu entendi o que vcs falaram, mas eu não uso Query.Delete, eu uso o
dbspeedButton que é linkado com o data source e é do tipo "nbDelete". Daí o
erro não passa por esse tratamento que fiz...
Gleidison
----- Original Message -----
From: Moked - Tamara (Brazil)
To: delphi-br@yahoogrupos.com.br
Sent: Friday, August 11, 2006 12:23 PM
Subject: RES: [delphi-br] Mensagem em Portugues de FOREIGN KEY!
Gleidison,
Não sei se entendi muito bem a sua duvida.... mas vamos la
Neste evento ai vc pode verificar se o E.Message é problema de foreing key
msm através do POS... se as suas chaves estrangeiras tiverem um padrão de
nomenclaruta tipo FK_Abobrinha/ FK_CHUCHU, vc pode usar o POS e localizar
FK_ em E.Message, dai se o retorno da função foi <> 0 sigifica q é isso msm,
dai vc exibe a msg q vc quer....
Seria esta a sua necessidade? eu ñ entendi a parte do "Eu coloquei uma
mensagem de teste mas não chega na mensagem."...
Tamara Clemente - Suporte Técnico
Moked do Brasil - Consultoria de Segurança Empresarial
Divisão MokInf de Informática
PABX: (55-11) 5071-2748
[EMAIL PROTECTED] <mailto:[EMAIL PROTECTED]>
www.moked.com.br <http://www.moked.com.br/>
________________________________
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Gleidison S. Bertolini
Enviada em: sexta-feira, 11 de agosto de 2006 11:02
Para: Grupo Delphi
Assunto: [delphi-br] Mensagem em Portugues de FOREIGN KEY!
Pessoal, estou precisando de tratar erros de FOREIGN KEY. Eu coloquei uma
mensagem de teste mas não chega na mensagem. Queria que se desse o erro
eu mostraria uma mensagem em português, "Existe(m) registros vinculados,
não é possível excluir!!!". Alguém tem manha de fazer isso?
procedure TFrmCadBanco.QPadraoDeleteError(DataSet: TDataSet; E:
EDatabaseError; var Action: TDataAction);
begin
inherited;
MessageDlg('Erro:'+ E.Message + '.', mtWarning,[mbOk], 0)
end;
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Links do Yahoo! Grupos
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
