Control del evento BeforeAction en TDBNavigator
 

Buenas tardes....

Espero me ayuden, tengo el componente DBNavigator1 y en el botón delete y en su evento before action hago un if si el resultado es true necesito que ya no se ejecute el borrado trate con exit y break, pero no funciona....

Hola omy

En realidad tenes que hacer las validaciones en el DataSet asociado al DataSource de tu DBNavigator

Revisa su evento OnBeforeDelete

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 :)

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 :)

Gracias
 

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