MessageDlg问题，请高手帮忙。

Question

If MessageDlg('你确定要删除这条记录吗？',mtConfirmation, [mbYes,mbno，mbcancel],0)=mrYes 我想实现判断 ，YES、NO、cancel分别会执行三种情况，我用if ....=mryesf     else if ....=mrno会出现两个对话框，如何实现一个就能判断？

Answer 1

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;

Answer 2

var result: integer;
begin
  result := MessageDlg('你确定要删除这条记录吗？',mtConfirmation, 
[mbYes,mbno，mbcancel],0);
  case result of
    mrYES: begin end;
    mrNO: begin end;
    mrCANCEL: begin end;
  end;
end;