TModalResult 和 MessageBox 返回值

//其实是对应的
{ TModalResult values }

const
  mrNone     = ;
  mrOk       = idOk;
  mrCancel   = idCancel;
  mrAbort    = idAbort;
  mrRetry    = idRetry;
  mrIgnore   = idIgnore;
  mrYes      = idYes;
  mrNo       = idNo;
  mrAll      = mrNo + ;
  mrNoToAll  = mrAll + ;
  mrYesToAll = mrNoToAll + ;

  { MessageBox() Flags }
  {$EXTERNALSYM MB_OK}
  MB_OK = $;
  {$EXTERNALSYM MB_OKCANCEL}
  MB_OKCANCEL = $;
  {$EXTERNALSYM MB_ABORTRETRYIGNORE}
  MB_ABORTRETRYIGNORE = $;
  {$EXTERNALSYM MB_YESNOCANCEL}
  MB_YESNOCANCEL = $;
  {$EXTERNALSYM MB_YESNO}
  MB_YESNO = $;
  {$EXTERNALSYM MB_RETRYCANCEL}
  MB_RETRYCANCEL = $;

  {$EXTERNALSYM MB_ICONHAND}
  MB_ICONHAND = $;
  {$EXTERNALSYM MB_ICONQUESTION}
  MB_ICONQUESTION = $;
  {$EXTERNALSYM MB_ICONEXCLAMATION}
  MB_ICONEXCLAMATION = $;
  {$EXTERNALSYM MB_ICONASTERISK}
  MB_ICONASTERISK = $;
  {$EXTERNALSYM MB_USERICON}
  MB_USERICON = $;
  {$EXTERNALSYM MB_ICONWARNING}
  MB_ICONWARNING                 = MB_ICONEXCLAMATION;
  {$EXTERNALSYM MB_ICONERROR}
  MB_ICONERROR                   = MB_ICONHAND;
  {$EXTERNALSYM MB_ICONINFORMATION}
  MB_ICONINFORMATION             = MB_ICONASTERISK;
  {$EXTERNALSYM MB_ICONSTOP}
  MB_ICONSTOP                    = MB_ICONHAND;

  {$EXTERNALSYM MB_DEFBUTTON1}
  MB_DEFBUTTON1 = $;
  {$EXTERNALSYM MB_DEFBUTTON2}
  MB_DEFBUTTON2 = $;
  {$EXTERNALSYM MB_DEFBUTTON3}
  MB_DEFBUTTON3 = $;
  {$EXTERNALSYM MB_DEFBUTTON4}
  MB_DEFBUTTON4 = $;

  {$EXTERNALSYM MB_APPLMODAL}
  MB_APPLMODAL = $;
  {$EXTERNALSYM MB_SYSTEMMODAL}
  MB_SYSTEMMODAL = $;
  {$EXTERNALSYM MB_TASKMODAL}
  MB_TASKMODAL = $;
  {$EXTERNALSYM MB_HELP}
  MB_HELP = $;                          { Help Button }

  {$EXTERNALSYM MB_NOFOCUS}
  MB_NOFOCUS = $;
  {$EXTERNALSYM MB_SETFOREGROUND}
  MB_SETFOREGROUND = $;
  {$EXTERNALSYM MB_DEFAULT_DESKTOP_ONLY}
  MB_DEFAULT_DESKTOP_ONLY = $;

  {$EXTERNALSYM MB_TOPMOST}
  MB_TOPMOST = $;
  {$EXTERNALSYM MB_RIGHT}
  MB_RIGHT = $;
  {$EXTERNALSYM MB_RTLREADING}
  MB_RTLREADING = $;

  {$EXTERNALSYM MB_SERVICE_NOTIFICATION}
  MB_SERVICE_NOTIFICATION = $;
  {$EXTERNALSYM MB_SERVICE_NOTIFICATION_NT3X}
  MB_SERVICE_NOTIFICATION_NT3X = $;

  {$EXTERNALSYM MB_TYPEMASK}
  MB_TYPEMASK = $0000000F;
  {$EXTERNALSYM MB_ICONMASK}
  MB_ICONMASK = $000000F0;
  {$EXTERNALSYM MB_DEFMASK}
  MB_DEFMASK = $00000F00;
  {$EXTERNALSYM MB_MODEMASK}
  MB_MODEMASK = $;
  {$EXTERNALSYM MB_MISCMASK}
  MB_MISCMASK = $0000C000;

  { Dialog Box Command IDs }
  {$EXTERNALSYM IDOK}
  IDOK = ;          ID_OK = IDOK;
  {$EXTERNALSYM IDCANCEL}
  IDCANCEL = ;      ID_CANCEL = IDCANCEL;
  {$EXTERNALSYM IDABORT}
  IDABORT = ;       ID_ABORT = IDABORT;
  {$EXTERNALSYM IDRETRY}
  IDRETRY = ;       ID_RETRY = IDRETRY;
  {$EXTERNALSYM IDIGNORE}
  IDIGNORE = ;      ID_IGNORE = IDIGNORE;
  {$EXTERNALSYM IDYES}
  IDYES = ;         ID_YES = IDYES;
  {$EXTERNALSYM IDNO}
  IDNO = ;          ID_NO = IDNO;
  {$EXTERNALSYM IDCLOSE}
  IDCLOSE = ;       ID_CLOSE = IDCLOSE;
  {$EXTERNALSYM IDHELP}
  IDHELP = ;        ID_HELP = IDHELP;
  {$EXTERNALSYM IDTRYAGAIN}
  IDTRYAGAIN = ;
  {$EXTERNALSYM IDCONTINUE}
  IDCONTINUE = ;