//Controls.pas const mrNone = 0; mrOk = idOk; mrCancel = idCancel; mrAbort = idAbort; mrRetry = idRetry; mrIgnore = idIgnore; mrYes = idYes; mrNo = idNo; mrAll = mrNo + 1; mrNoToAll = mrAll + 1; mrYesToAll = mrNoToAll + 1; type TModalResult = Low(Integer)..High(Integer); //Windows.pas const { Dialog Box Command IDs } {$EXTERNALSYM IDOK} IDOK = 1; ID_OK = IDOK; {$EXTERNALSYM IDCANCEL} IDCANCEL = 2; ID_CANCEL = IDCANCEL; {$EXTERNALSYM IDABORT} IDABORT = 3; ID_ABORT = IDABORT; {$EXTERNALSYM IDRETRY} IDRETRY = 4; ID_RETRY = IDRETRY; {$EXTERNALSYM IDIGNORE} IDIGNORE = 5; ID_IGNORE = IDIGNORE; {$EXTERNALSYM IDYES} IDYES = 6; ID_YES = IDYES; {$EXTERNALSYM IDNO} IDNO = 7; ID_NO = IDNO; {$EXTERNALSYM IDCLOSE} IDCLOSE = 8; ID_CLOSE = IDCLOSE; {$EXTERNALSYM IDHELP} IDHELP = 9; ID_HELP = IDHELP; {$EXTERNALSYM IDTRYAGAIN} IDTRYAGAIN = 10; {$EXTERNALSYM IDCONTINUE} IDCONTINUE = 11;