Hello,
I have a DbNavigator with Delete button enabled and Confirm Delete disabled, because I need a custom message on Delete.
So I have put this code in the onBeforeDelete event of the DataSet:
procedure TformCustomers.tabCompositionBeforeDelete(DataSet: TDataSet); begin // Ask confirm MessageDlg('Confirm Delete of item: '+ tabComposition.FieldByName('TABLECODE').AsString +' ?', mtConfirmation, mbYesNo, procedure(Sender: TComponent; Res: Integer) begin if Res <> mrYes then // Annulla delete Abort; end//procedure );//MessageDlg end;
But the records get deleted before my answer...
Can you help ?