Confirm delete of a record

[Phxtecno]

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 ?

 

 

 

[Sherzod]

Hi,

 

While, try:

procedure TMainForm.ClientDataSet1BeforeDelete(DataSet: TDataSet);
begin
  ClientDataSet1.BeforeDelete := nil;
  MessageDlg('Confirm Delete of item:  ?', mtConfirmation, mbYesNo,
        procedure(Sender: TComponent; Res: Integer)
        begin
          if Res = mrYes then
          begin
            ClientDataSet1.Delete;
          end;
          ClientDataSet1.BeforeDelete := ClientDataSet1BeforeDelete;
        end
 );
 Abort;
end;

Best regards.

[Phxtecno]

Thank you !

it works, but seems a "dirty" solution detach the event in this way...

Is there a cleaner way to deal with this kind of situations ?

 

Regards,

Marc

[Farshad Mohajeri]

This one is more clean:

 

procedure TMainForm.UniDBNavigator1BeforeAction(Sender: TObject; Button: TNavigateBtn);
begin
  if Button = nbDelete then
  begin
    MessageDlg('Confirm?', mtConfirmation, mbYesNoCancel,
      procedure(Sender: TComponent; Ans: Integer)
      begin
        if Ans = mrYes then
        begin
          DataSource1.DataSet.Delete;
        end;
      end
    );
    Abort;
  end;
end;