MessageDlg的问题

Question

怎样实现关闭窗口时弹出对话框询问是否确定关掉窗口？

Answer 1

if MessageDlg('真的要退出本系统吗？',mtConfirmation,[mbyes,mbno],0) = mrno then
     abort;

Answer 2

在formclosequery事件里加代码：
procedure TForm8.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  IF application.MessageBox('你要退出系统吗?','系统提示',MB_YESNO)=IDYES
   then
     canclose:=true
   else
     canclose:=false;
end;

Answer 3

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
     if MessageDlg('真的要退出本系统吗？',mtConfirmation,[mbyes,mbno],0) = mrno then
     abort;end;ok了吧

Answer 4

在OnClose事件添加
     if MessageDlg('真的要退出本系统吗？',mtConfirmation,[mbyes,mbno],0) = mrno then
     abort;