frmCloseQuery()在关闭窗口前加入确认对话框
{在关闭窗口前加入确认对话框}
//调用 frmCloseQuery(CanClose);
//放在FormCloseQuery的下面
procedure frmCloseQuery( var CanClose: Boolean);
begin
if application.MessageBox('退出请点 “是” '+#13#10+'返回请点 “否”','提示',MB_YESNO+MB_ICONQUEStION)=ID_NO then
begin
CanClose:=false;
end;
end; 