DElphi可否实现confirm带返回值的对话框

发布网友发布时间：2023-02-14 22:59

共2个回答

热心网友时间：2023-09-13 11:31

在 delphi 里，带返回值的对话框，可以使用 MessageDlg、 MessageBox 函数来显示对话框，以下是示例代码：

procere TForm1.Button1Click(Sender: TObject);
begin
  if Application.MessageBox('你确定要退出本系统吗？', '信息提示', MB_OKCANCEL +
    MB_ICONQUESTION) = IDOK then
  begin
    //当按“确定”按钮时执行的代码
  end;

end;

对话框效果：

热心网友时间：2023-09-13 11:31

可以的。例如：

if messagedlg('编辑的文件已作了修改,是否存盘?',mtinformation,[mbyes,mbno],0)=mryes
        then
                begin
                        memo1.lines.savetofile(f_name);
                        memo1.modified:=false;
                        form1.activecontrol:=memo1;
                        open;
                end