摘要： if MessageDlg('Welcome to my Delphi application. Exit now?', mtConfirmation, [mbYes, mbNo], 0) = mrYes thenbeginClose; end;MessageDlg用法对话框类型：mtwarning——含有感叹号的警告对话框mterror——含有红色叉符号的错误对话框mtinformation——含有蓝色i符号的信息对话框mtconfirmation——含有绿色问号的确认对话框mtcustom——不含图标的一般对话框，对话框的标题是程序的名称按钮组中的按钮：mbYes——mrY 阅读全文