delphi中退出是弹出让你确定的几种确定对话框怎么写？

2024-12-27 22:52:15

推荐回答（4个）

回答1：

1、打开Delphi7集成开发环境，在默认工程的Form1窗体放一个Button1按钮，一个Edit1编辑框。

2、在Unit1.pas源代码文件的interface部分定义一个类，代码如下。

3、在属性上按CTRL+Shift+C会生成对应的方法，在SetName和SetScore分别写如下代码。

4、双击Button1进入事件方法，写如下代码。

5、最后F9运行程序，在Edit1输入小于100的数字20会弹出对话框，显示' 张三的成绩是20'，就设置完成了。

回答2：

代码示例如下：

procedure TForm2.btn1Click(Sender: TObject);
begin
  if MessageBox(Handle, '你确定要退出系统吗？', '信息提示', MB_OKCANCEL + MB_ICONQUESTION) =
    IDOK then
  begin
    Close;
  end;
end;

运行效果截图:

回答3：

1．警告信息框 MessageBox(Handle,'警告信息框','警告信息框',MB_ICONWARNING);

2．疑问信息框 MessageBox(Handle,'疑问信息框','疑问信息框',MB_ICONQUESTION);

3．错误提示框 MessageBox(Handle,'错误信息框','错误信息框',MB_ICONERROR);

4．提示信息框 MessageBox(Handle,'提示信息框','提示信息框',MB_ICONASTERISK);

5．说明信息框 MessageBox(Handle,'说明信息框','说明信息框',MB_HELP);

6．提示信息框 MessageBox(Handle,'提示信息框','提示信息框',MB_OK);

7．确认信息框 MessageBox(Handle,'确认信息框','确认信息框',MB_OKCANCEL);

8．重试信息框 MessageBox(Handle,'重试信息框','重试信息框',MB_RETRYCANCEL);

9．是否信息框 Application.MessageBox(Handle,'是否信息框','是否信息框',MB_YESNO);

10．是否取消信息框 Application.MessageBox(Handle,'是否取消信息框','是否取消信息框',MB_YESNOCANCEL);

11 简单提示信息框 ShowMessage('这个就是ShowMessage函数生成的信息提示框！');

回答4：

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
var n:word;
begin
n:=messagedlg('是否退出',mtconfirmation,[mbyes,mbno],1);
if n=mryes
then CanClose:=true
else CanClose:=false
end;