Parceiros Wgets downloads
//Altere para False a propriedade Confirm Delete do DbNavigator //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;