Jak mogę przerwać usuwanie rekordów na podstawie decyzji po naciśnięciu przycisku dbnavigator delete?

Question

Czy mogę przerwać usuwanie rekordów na podstawie decyzji po naciśnięciu przycisku usuwania dbnavigator? Sprawdziłem beforeAction Event

if Button = nbDelete then 
    //check if not OK then 

Button := nbCancel; 

ale to nie działa. Jakaś pomoc?

Używam DelPhi XE2, anyDac Components

Answer 1

Użyj BeforeAction wydarzenie

procedure TForm1.DBNavigator1BeforeAction(Sender: TObject; Button: TNavigateBtn); 
begin 
    if Button = nbDelete then 
    begin 
    if MessageDlg('Confirm delete now?', mtConfirmation, [mbYes,mbNo], 0) = mrNo then 
    begin 
     Abort; 
    end; 
    end; 
end; 

Answer 2

Można użyć zdarzenia BeforeDelete:

procedure Tdm.MyDataSetBeforeDelete(DataSet: TDataSet); 
begin 
    if SomeCondition then 
    begin 
    ShowMessage('Sorry, you can not delete this record.'); 
    Abort; 
    end; 
end; 

Answer 3

Wybierz DBNavigator, następnie na inspektora obiektów wewnątrz Opcje ustaw noConfirmDelete na "false"