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 >>>>> <*> 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
