delphi Messagebox对话框显示 “确定”“取消”

可以使用以下代码在Delphi中显示一个MessageBox对话框，其中包含"确定"和"取消"按钮：

var
  ButtonSelected: Integer;begin
  ButtonSelected := MessageDlg('确定要执行此操作吗？', mtConfirmation, [mbYes, mbNo], 0);
  if ButtonSelected = mrYes then
  begin
    // 点击了"确定"按钮
    // 执行相应的操作
  end
  else
  begin
    // 点击了"取消"按钮或关闭对话框
    // 执行相应的操作
  end;end;

以上代码将显示一个对话框，标题为"确定要执行此操作吗？"，并包含"确定"和"取消"两个按钮。根据用户选择的按钮，代码将执行相应的操作。如果用户点击了"确定"按钮，ButtonSelected的值将为mrYes，如果用户点击了"取消"按钮或关闭了对话框，ButtonSelected的值将为mrNo。