Delphi中ModalResult的功能非常实用。

在自己设计的Dialog界面中，选择相应的按钮，设置按钮的 ModalResult属性为mrOK 、mrCancel 等。这样的设置，当按下该按钮时，，界面会自己关闭，同时会将该按钮的ModalResult属性传递给窗体，以便于调用的代码取得该值。

在调用界面，必须要用ShowModal，不能用show。判断是只要如下：

if xform.ModalResult = mrOK then xxxxxx

注意事项：在dialog界面中，按钮千万不要写 close代码，一次笔者从其他地方copy一个窗体过来，怎么设置都不行，后来才发现一个按钮里有一句 close。

Delphi中ModalResult的使用