delphi中退出是弹出让你确定的几种确定对话框怎么写?
procedure TForm2.btn1Click(Sender: TObject); begin if MessageBox(Handle, '你确定要退出系统吗?', '信息提示', MB_OKCANCEL + MB_ICONQUESTION) = IDOK then begin Close; end; end;
运行效果截图:
好的代码像粥一样,都是用时间熬出来的
procedure TForm2.btn1Click(Sender: TObject); begin if MessageBox(Handle, '你确定要退出系统吗?', '信息提示', MB_OKCANCEL + MB_ICONQUESTION) = IDOK then begin Close; end; end;
运行效果截图: