我想拦截用户点窗体的X（关闭），使用户点X（关闭）时，相当于点“最小化”按钮，不知道该怎么办

Question

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if messageBox(handle,'关闭吗','提示',MB_YesNo)=ID_Yes then
     action:=cafree
  else begin
     action:=caNone;
     form1.WindowState :=wsMinimized;
  end;
end;

Answer 1

procedure  TForm1.FormClose(Sender:  TObject;  var  Action:  TCloseAction);
  begin
    action:=caNone;
    form1.WindowState  :=wsMinimized;
  end;

Answer 2

procedure  TForm1.FormClose(Sender:  TObject;  var  Action:  TCloseAction);
  begin
      if  messageBox(handle,'关闭吗','提示',MB_YesNo)=ID_Yes  then
            action:=cafree
      else  begin
            action:=caNone;
            form1.WindowState  :=wsMinimized;
      end;
  end;可以了，二楼的代码缺了一个提示，当你真的希望用“X”关闭窗体时就不能用了