Ver Mensaje Individual
  #4  
Antiguo 10-06-2015
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola omy.

Como te comenta AgustinOrtu, resulta mas natural usar el evento OnBeforeDelete del TDataSet.

Pero áun así, podes hacerlo desde el evento BeforeAction del TDBNavigator lanzando una excepción silenciosa, ejemplo:
Código Delphi [-]
var
  Resultado : Boolean = True; // (DBNavigator1 no borrará)

procedure TForm1.DBNavigator1BeforeAction(Sender: TObject;
  Button: TNavigateBtn);
begin
  if (Button = nbDelete) and Resultado then
   Abort;
  ...
end;

Saludos
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita