Control del evento BeforeAction en TDBNavigator

[ecfisa]

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