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。