关于Form 的close问题？

Question

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

Answer 1

你在FORM的CLOSE事件里头写一个MESSAGEBOX就可以了
在它的状态为NO的时候，EXIT就可以了

Answer 2

问题是用exit不行 啊，form仍然要关闭呀！

Answer 3

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