关于Form 的close问题？

Question

我要在关闭FORM的时候，让客户作选择  “确实要退出吗” 点YES 关闭这个FOMR，点NO则不关闭，仍然是原来的状态，这个问题如何实现？
请高手指点谢谢！

Answer 1

var
  flag:integer;
begin
  flag:= messagebox(getactivewindow(),'您确定要退出系统?','提示!' ,MB_OKCANCEL + MB_ICONINFORMATION);
  if flag=IDOK then
    application.Terminate;
end;

Answer 2

窗口onCloseQuery事件：  IF Application.MessageBox('确实要退出吗？','系统提示',MB_OkCancel+MB_DefButton1+MB_IconQuestion+MB_ApplModal) = 1 then
     begin
     CanClose := True;;
     end
  else
    CanClose := false;
  end;

Answer 3

if application.MessageBox('您确定退出吗？','提示',MB_ICONQUESTION+MB_OKCANCEL) = IDOK then
   canclose:=true else
   canclose:=false;

Answer 4

if messagedlg('确定要推出系统吗?',mtconfirmation,[mbyes,mbno],0)=mryes then
application.Terminate;

Answer 5

在onCloseQuery事件中做判断即可

Answer 6

在form1的onClose事件里写：
if application.MessageBox('您确定退出吗？','提示',4) = 6 then
   canclose:=true 
else
   canclose:=false;