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;

通过 为知笔记 发布