Buscar por:

Traduzindo a mensagem de exclusão(dbnavigator)

Código

Procedure TForm1.IBDataSet1BeforeDelete(DataSet: TDataSet);

begin

//selecionte o dbnavigator no formulário e altere sua função//

//confirme delete  para false.//

//No IBDataSet selecionte o evento BeforeDelete e digite://

if application.MessageBox('Deseja excluir o regstro atual?','Confirme',

Mb_YesNo + Mb_IconQuestion + Mb_DefButton2)=IdNo then abort;

// interrompoe e não exclui o arquivo//

//Isso criará uma caixa com o título confirme e a mensagem//

//deseja excluir o registro atual? exibindo os botões sim e não.//

end;

end.