delphi里当用queryclose去提示退出时,怎样另到按提示对话框的叉叉变成取消的操作呢?

用case of 语句吧
case messagedlg('是否退出程序',mtwarning,[mbYes, mbNo, mbOK, mbCancel],0) of
0: begin
end;
1:begin//mbOK是1
canclose:=true;
end;
2:begin//mbCancel是2，按对话框上的XX按钮，相当按了取消按钮
canclose:=false
end
3:begin
end;
end;
其它按钮的编号你自己去查吧。

看看我写的能对你帮助吗？
procedure TFrmmain.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if Application.MessageBox('您好，是否真的要退出该系统！退出请按“是”...',
'提示',MB_ICONQUESTION + MB_YESNO ) =6 then
CanClose :=true
else
CanClose :=false;

end;

猜想点叉叉的话返回值就不是mrno 了，在Delphi XE2里测试下
i:=Vcl.Dialogs.messagedlg('是否退出程序', mtWarning, [MBYES, MBNO],0);
showmessage(inttostr(i));
点叉叉返回值是2；Delphi XE2里 mrNo: Integer = 7; 显然用if判断会出现else的情况，还是用case的好。