Control del evento BeforeAction en TDBNavigator

[Casimiro Noteví]

Empezado por omy

Buenas tardes....

Hola, por favor, para otras ocasiones no olvides poner títulos descriptivos a tus preguntas, "DBnavegator" no describe nada tu pregunta. Gracias por tu colaboración, saludos

[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

[omy]

Gracias a todos, probé las dos opciones y son correctas... les agradezco... un Saludo a todos