为什么这句不按我的意思去执行呢?

Question

procedure Tmenu_w.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if Application.MessageBox('是否确定退出系统？','提示',MB_YESNO)=IDYES then Application.Terminate;
end;
问题是不管我选择Y或者N都是关闭程序呀?

Answer 1

if Application.MessageBox('是否确定退出系统？','提示',MB_YESNO)=IDNO then
    Action := caNone;

Answer 2

应该在closeQuery中写：procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
　CanClose:=Application.MessageBox('是否确定退出系统？','提示',MB_YESNO)=IDYES; 
end;