Delphi Modal窗體（ModalResult）的介紹、使用方法和注意事項

1、介紹

//uses  controls
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);

//uses  windows
const
  IDOK = 1;          ID_OK = IDOK;
  IDCANCEL = 2;      ID_CANCEL = IDCANCEL;
  IDABORT = 3;       ID_ABORT = IDABORT;
  IDRETRY = 4;       ID_RETRY = IDRETRY;
  IDIGNORE = 5;      ID_IGNORE = IDIGNORE;
  IDYES = 6;         ID_YES = IDYES;
  IDNO = 7;          ID_NO = IDNO;
  IDCLOSE = 8;       ID_CLOSE = IDCLOSE;
 

ModalResult 表示模式對話方塊的返回值。應用程式可以使用任何整數值作為模式結果值。儘管TModalResult可以採用任何整數值，但為常用的TModalResult值定義了以下常量：

• mrNone //無。在使用者退出之前用作預設值。
• mrOk //idOK 使用者使用OK按鈕退出。
• mrCancel //idCancel 使用者使用“取消”按鈕退出。
• mrAbort //idAbort使用者使用中止按鈕退出。
• mrRetry //idRetry使用者使用重試按鈕退出。
• mrIgnore //idIgnore使用者使用IGNORE按鈕退出。
• mrYes //IdYes 使用者使用“是”按鈕退出。
• mrNo //idNo 使用者使用“否”按鈕退出。
• mrAll //mrNo+1使用者使用ALL按鈕退出。
• mrNoToAll //mrAll+1使用者使用“全部拒絕”按鈕退出。
• mrYesToAll //mrNoToAll+1 使用者使用“全部是”按鈕退出。

2、注意事項：

• ModalResult屬性返回值執行之後，該按鈕所在的窗體會自動關閉，請勿再次使用Close關閉窗體。
• 基本上窗體和按鈕的都有ModalResult的屬性值
• 窗體的ModalResult屬性會自動傳遞給ShowModal，作為方法的返回值。

3、使用示例：

//Form1中:
if Form2.ShowModal = mrok then ShowMessage('TaoRoy OK！');

//Form2中 
procedure TForm2.button1Click(Sender: TObject);
begin
   self.ModalResult := mrok;
end;
 

建立時間：2021.08.31　　更新時間：