Ver Mensaje Individual
  #2  
Antiguo 12-02-2004
__cadetill __cadetill is offline
Miembro
 
Registrado: may 2003
Posts: 3.387
Reputación: 24
__cadetill Va por buen camino
Ya que utilizas un DBNavigator, yo personalmente utilizaría sus eventos para hacer lo que pretendes. En concreto el OnBeforeAction

Código:
procedure TConsultas.NavegadorBeforeAction(Sender: TObject;
  Button: TNavigateBtn);
begin
  case Button of
    nbDelete :
      begin
        if Application.MessageBox('Realmente quiere borrar el registro seleccionado?',
                      'Atención',
                      MB_ICONWARNING or MB_YESNO or MB_APPLMODAL) = mrNo then
          Abort;
      end;
  end;
end;
Responder Con Cita