自己编写提示!

Question

我也不太明白，cancel不行吗？那就帮忙up一下吧

Answer 1

用CLOSE试试procedure TForm1.ADOTable1BeforeDelete(DataSet: TDataSet);
begin
  with ADOTable1 do
  if Application.MessageBox('确实要删除吗？','删除',Mb_YESNO+Mb_IconStop) = IDYes then
  Delete
  else
  close;
end;

Answer 2

procedure TForm1.ADOTable1BeforeDelete(DataSet: TDataSet);
begin
  if Application.MessageBox('确实要删除吗？','删除',Mb_YESNO+Mb_IconStop) <> IDYes then
  abort;
end;