各大高手，帮我个小忙吧！

Question

 在 onclose 事件中加上确认框，如果对方点“否”，则 action := canone 。

Answer 1

if MessageBox(Handle,'是否关闭?','关闭',Mb_Question+Mb_YESNO)=IdYes then
  Close;

Answer 2

procedure TMainWindow.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if Application.MessageBox('您确定要退出吗？','询问',MB_YesNo)=7 then
Abort();
end;
这是我的程序中的一定没有问题！

Answer 3

procedure TMainWindow.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    if MessageDlg('您确定要退出吗?',mtConfirmation, [mbYes, mbNo], 0) = mrNo then
        Action:=caNone;
end;

Answer 4

Application.MessageBox('您确定要退出吗？','询问',MB_YesNo)=7 
=7是什么意思?