Control del evento BeforeAction en TDBNavigator

[omy]

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....

[[AgustinOrtu]]

Hola omy

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

Revisa su evento OnBeforeDelete

[Casimiro Notevi]

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