请教：如何才能取消窗体的Close操作？？ --送分的问题

Question

检测并阻止Windows的关闭
要检测Windows的关闭只需在主Form的OnCloseQuery事件中添加如下代码：
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose:
Boolean);
begin
if MessageDlg('关闭本程序吗?', mtConfirmation, mbYesNoCancel, 0) = mrYes
then CanClose := true   // 允许Windows关闭
else CanClose := false; // 阻止Windows关闭
end;

Answer 1

mainform on closequery event
set canclose:=true then let it close
set canclose:=false then deny to close

Answer 2

在Form1的OnClose事件中作如下处理：
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if 条件 then
    Action:=caNone;
end;
“条件”可以自己设定