温馨提示×

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

小亿
412
2023-12-20 17:41:58
栏目: 编程语言

可以使用以下代码在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

0