关闭窗口的问题

Question

作了个按钮用来关闭窗口，
谈出对话框询问是否真的要关闭程序，
没什么问题。
但是点击右上角的小叉还是可以直接关闭窗口。
不知道怎么做才能也谈出对话框。

Answer 1

窗口的OnClose事件里
if application.MessageBox('确定要退出么？','系统提示',mb_okcancel)<>1 then
       begin
       action:=caNone;
       exit;
       end;

Answer 2

窗口的OnCloseQuery事件里
if application.MessageBox('确定要退出么？','系统提示',mb_okcancel)=idCabcel then
   CanClose := False;

Answer 3

onClose事件和onCloseQuery事件有什么区别？

Answer 4

procedure TFmain.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  if application.MessageBox('即将退出此系统，是否确定 ？','提示信息',MB_ICONQUESTION+mb_yesno)=idyes then
    Canclose:=true
  else
    canclose:=false;
end;