Cita:
Empezado por Casimiro Notevi
Código Delphi [-]begin
if MessageDlg('¿Está seguro de borrar el registro?',mtConfirmation, [mbYes, mbNo], 0) = mrYes then
tu_dataset.delete;
end;
|
Personalmente creo que no es conveniente utilizar un código como éste. Primero, te abstines de utilizar el TDBDeleteAction, y segundo, no es un código muy fácil de refactorizar. En su lugar, ejecuta la acción Delete por medio de un TDBAction. En el evento OnBeforeDelete de TDataset utiliza un código similar al siguiente:
Código Delphi
[-]if MessageDgl('¿Eliminar ...?', mtConfirmation, [mbYes, mbNo], 0) = mrNo then
Abort;
Por último, te recomiendo mejorar la usabilidad de tu aplicación utilizando
mejores mensajes de diálogo.
Saludos!