Wie kann ich das Löschen von Datensätzen aufgrund von Entscheidungen abbrechen, nachdem dbnavigator delete button gedrückt wurde?

Question

Kann ich das Löschen von Datensätzen aufgrund von Entscheidungen nach dbnavigator löschen Taste drücken? Ich habe beforeAction Ereignis

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

Button := nbCancel; 

aber es funktioniert nicht. Irgendeine Hilfe?

Ich verwende DelPhi XE2, anyDac Components

Answer 1

Verwenden Sie die BeforeAction Ereignis

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

Sie können die BeforeDelete Ereignis verwenden:

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

Answer 3

die DBNavigator auswählen, dann auf dem Objektinspektor innen Die Optionen setzen noConfirmDelete auf "false"