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

您可以使用以下代码在 Delphi 中显示带有“确定”和“取消”按钮的 MessageBox 对话框：

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

上面的代码将显示一个标题为“您确定要执行此操作吗？”的对话框。并包含两个按钮：“确定”和“取消”。根据用户选择的按钮，代码将执行适当的操作。如果用户单击“确定”按钮，则 ButtonSelected 的值为 mrYes。如果用户单击“取消”按钮或关闭打开对话框时，ButtonSelected code>的值将为mrNo。