【结贴】点击删除按钮给出提示,如果确定则执行删除,否则返回**

cdz0451

点击删除按钮给出提示,如果确定则执行删除,否则返回,利用代码如何实现?

lisb

procedure TMainForm.DataNavigator1BeforeAction(Sender: TObject; var Accept: Boolean);
begin
   case (Sender as TBizDataSetAction).ID of
     BizActnConsts.ActionDataSetDelete:        
     begin
       if JsDialogs.ConfirmBox('确定删除吗？','提示信息',1) then
       begin
           dsbMaster.DataSet.Delete;
           dsbMaster.DataSet.ApplyUpdates;
       end;
       Accept := False;     //询问是否删除 用户点否时不做删除数据集操作
     end;
   end;
end;

cdz0451

谢谢,结贴!