Delphi Modal窗体（ModalResult、ShowModal）的介绍、使用方法和注意事项
Delphi Modal窗体（ModalResult）的介绍、使用方法和注意事项
1、ModalResult 介绍
//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 注意事项：
- ModalResult属性返回值执行之后，该按钮所在的窗体会自动关闭，请勿再次使用Close关闭窗体。
- 基本上窗体和按钮的都有ModalResult的属性值
- 窗体的ModalResult属性会自动传递给ShowModal，作为方法的返回值。
3、ShowModal 介绍
function ShowModal: Integer; virtual;
function TCustomForm.ShowModal: Integer;
var
WindowList: Pointer;
SaveFocusCount: Integer;
SaveCursor: TCursor;
SaveCount: Integer;
ActiveWindow: HWnd;
begin
CancelDrag;
if Visible or not Enabled or (fsModal in FFormState) or
(FormStyle = fsMDIChild) then
raise EInvalidOperation.Create(SCannotShowModal);
if GetCapture <> 0 then SendMessage(GetCapture, WM_CANCELMODE, 0, 0);
ReleaseCapture;
Application.ModalStarted;
try
Include(FFormState, fsModal);
ActiveWindow := GetActiveWindow;
SaveFocusCount := FocusCount;
Screen.FSaveFocusedList.Insert(0, Screen.FFocusedForm);
Screen.FFocusedForm := Self;
SaveCursor := Screen.Cursor;
Screen.Cursor := crDefault;
SaveCount := Screen.FCursorCount;
WindowList := DisableTaskWindows(0);
try
Show;
try
SendMessage(Handle, CM_ACTIVATE, 0, 0);
ModalResult := 0;
repeat
Application.HandleMessage;
if Application.FTerminate then ModalResult := mrCancel else
if ModalResult <> 0 then CloseModal;
until ModalResult <> 0;
Result := ModalResult;
SendMessage(Handle, CM_DEACTIVATE, 0, 0);
if GetActiveWindow <> Handle then ActiveWindow := 0;
finally
Hide;
end;
finally
if Screen.FCursorCount = SaveCount then
Screen.Cursor := SaveCursor
else Screen.Cursor := crDefault;
EnableTaskWindows(WindowList);
if Screen.FSaveFocusedList.Count > 0 then
begin
Screen.FFocusedForm := Screen.FSaveFocusedList.First;
Screen.FSaveFocusedList.Remove(Screen.FFocusedForm);
end else Screen.FFocusedForm := nil;
if ActiveWindow <> 0 then SetActiveWindow(ActiveWindow);
FocusCount := SaveFocusCount;
Exclude(FFormState, fsModal);
end;
finally
Application.ModalFinished;
end;
end;
- 使用ShowModal将窗体显示为模态窗体。模式窗体是指在关闭窗体之前应用程序无法继续运行的窗体。因此，ShowModal在表单关闭之前不会返回。当窗体关闭时，它返回ModalResult属性的值。
- 要关闭模态窗体，请将其ModalResult属性设置为非零值。
- 注意：如果表单包含ModalResult属性设置为mrNone以外的值的按钮，则当用户单击其中一个按钮并将ModalResult值作为ShowModal的返回值返回时，表单将自动关闭。
- 您可以使用全局IsAbortResult、IsAllResult、IsNegativeResult或IsPositiveResult函数对照常见返回值检查返回值。
4、使用示例：
//Form1中:
if Form2.ShowModal = mrok then ShowMessage(‘TaoRoy OK！‘);
//Form2中
procedure TForm2.button1Click(Sender: TObject);
begin
self.ModalResult := mrok;
end;
创建时间：2021.08.31 更新时间：
原文：https://www.cnblogs.com/guorongtao/p/15209614.html