模态形式提供了非模态显示时无法拥有的特定功能。最常见的情况是，我们将以模式显示表单，以将其进程与主表单上可能发生的任何事情隔离开来。一旦这些过程完成，您可能想知道用户是否按下保存或取消按钮来关闭模式表单。您可以编写一些有趣的代码来实现这一点，但并不一定很难。Delphi为模态表单提供了ModalResult属性，我们可以读取该属性来告诉用户如何退出表单。

以下代码返回一个结果，但调用例程忽略该结果：

上面显示的示例只是显示表单，让用户使用它做一些事情，然后发布它。要检查表单是如何终止的，我们需要利用showmodel方法是返回几个ModalResult值之一的函数这一事实。换线

肖莫代尔

到

如果F.ShowModal=mrOk，则

我们需要一些模态形式的代码来设置我们想要检索的内容。获取ModalResult的方法不止一种，因为TForm不是唯一具有ModalResult属性的组件—TButton也有一种。

让我们先看看TButton的模型结果。启动一个新项目，并添加一个附加表单（DelphiIDE主菜单：文件->新建->表单）。此新表单将具有“Form2”名称。接下来向主窗体（Form1）添加一个TButton（名称：“Button1”），双击new按钮并输入以下代码：

现在选择附加表单。给它两个按钮，一个标记为“保存”（名称：“btnSave”；标题：“保存”），另一个标记为“取消”（名称：“btnCancel”；标题：“取消”）。选择“保存”按钮并按F4键打开“对象检查器”，向上/向下滚动，直到找到属性ModalResult并将其设置为mrOk。返回表单并选择Cancel按钮，按F4，选择属性ModalResult，然后将其设置为mrCancel。

就这么简单。现在按F9运行项目。（根据您的环境设置，Delphi可能会提示保存文件。）主窗体出现后，按前面添加的按钮1，以显示子窗体。当子窗体出现时，按Save按钮，窗体关闭，返回主窗体后请注意，它的标题显示“Yes”。按主窗体的按钮再次调出子窗体，但这次按取消按钮（或系统菜单关闭项或标题区域中的[x]按钮）。主窗体的标题为“否”。

这是怎么回事？要了解更多信息，请查看TButton的Click事件（来自StdCtrls.pas）：

发生的情况是，TButton的所有者（在本例中是第二种形式）根据TButton的ModalResult的值获取其ModalResult集。如果未设置TButton.ModalResult，则该值为mrNone（默认情况下）。即使TButton被放置在另一个控件上，父窗体仍然用于设置其结果。最后一行调用从其祖先类继承的Click事件。

要了解Forms ModalResult的运行情况，有必要查看Forms.pas中的代码，您可以在..\DelphiN\Source（其中N表示版本号）中找到这些代码。

在TForm的showmodel函数中，直接在显示表单后重复，直到循环开始，这将持续检查变量ModalResult是否变为大于零的值。发生这种情况时，最终代码关闭表单。

您可以在设计时设置ModalResult，如上所述，但也可以在运行时直接在代码中设置窗体的ModalResult属性。