帮助~~~~在线等~~~~~```

Question

我想再关闭窗口时进行退出确认，是点击窗口的退出不是自己放的按钮！
再哪个事件中写代码？怎样做？

Answer 1

呵呵，suokui (火狐) 以多取胜CloseQueryif 要退出吗=ok then
  canClose := True
else canClose := False;-----------------
出差在外，不曾试验

Answer 2

你不是都问了吗，
你也可以在窗体的onclose事件里添加代码

Answer 3

closequery事件中写
action:=cafree;

Answer 4

错了，应该是canclose:=true;
不好意思！

Answer 5

if application.MessageBox('确实要退出?','退出确认',mb_OKCANCEL) = IDOK then
  Action := caFree
 else
 Action := caNone;

Answer 6

你是说点击关闭按钮吗？
在CloseQuery事件中
你有其他的退出按钮 吗？if application.messagebox('','',mb) = ok then
canclose :=true
else 
cancloae := false