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;

通过 为知笔记 发布

转载于:https://www.cnblogs.com/xe2011/archive/2012/06/02/2531645.html