请问高手一个问题,有空请回答:

Question

请问高手一个问题,有空请回答:
我想在删除一条记录前,弹出一个MESSAGE框,让他确认后才删除这条记录,如果他选择否的话,就不删除返回,代码怎么写呢?

Answer 1

if application.Messagebox('删除数据请选是,否则选否','提示',
     mb_yesno+mb_applmodal+mb_iconwarning+mb_defbutton2+mb_systemmodal)=idyes then
  begin
    //删除代码
  end;

Answer 2

在数据集的BeforeDelete事件中添加如下代码
procedure TfrmQSReg.tblT_RegInfBeforeDelete(DataSet: TDataSet);
begin
  if messagebox(handle,'确认要删除当前记录吗？','删除确认',mb_iconquestion+mb_yesno)=idyes then 
  begin
    删除代码
  end
  else abort;
end;

Answer 3

这样写为什么会报错: Too many actual parameters;procedure TForm1.ADOTable1BeforeDelete(DataSet: TDataSet);
begin
  if MessageDlg('确定要删除此条记录吗?',
    mtConfirmation, [mbYes, mbNo], 0, mbYes) = mrYes then
    adotable1.Delete
  else abort;
end;

Answer 4

procedure TForm1.ADOTable1BeforeDelete(DataSet: TDataSet);
begin
  if MessageDlg('确定要删除此条记录吗?',
    mtConfirmation, [mbYes, mbNo], 0) = mrYes then
    adotable1.Delete
  else abort;
end;

Answer 5

看看下面的代码：用messagebox
if messagebox(handle,'真的要删除当前记录吗？','信息提示',mb_iconquestion+mb_okcancel)=0 then 
  begin
    删除代码
  end
  else abort;
另外给你一个messagedlg的例子delphi帮助上的幺！！！
procedure TForm1.Button1Click(Sender: TObject);begin
  if MessageDlg('Welcome to my Object Pascal application.  Exit now?',
    mtConfirmation, [mbYes, mbNo], 0) = mrYes then
  begin
    MessageDlg('Exiting the Object Pascal application.', mtInformation,
      [mbOk], 0);
    Close;
  end;end;