Código
//Inclua o procedimento abaixo na propriedade BeforeAction do DbNavigator
If Button = nbDelete then
If MessageDlg('Confirma a exclusão do registro atual?', mtWarning, [mbYes, mbNo], 0) = mrno Then
Abort;
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009