ModalResult属性

假设你的主窗体为Form1，Form2为动态生成的窗体。Form2上面又两个Button，他们的ModalResult属性分别为：mrOK和mrCancel。这样，通过判断Form2的ModalResult属性就可以知道用户点了哪个Button，你就不用在Form2的ButtonClick事件里面写代码判断了。有时候，你都完全不必在Form2单元中写任何代码。
简单的例子：

procedure TForm1.Button2Click(Sender: TObject);

var

    Form2:   TForm2;

    mr:   TModalResult;

begin

    Form2   :=   TForm2.Create(Self);

    try

        mr   :=   Form2.ShowModal;

        case   mr   of

            mrOK:   ShowMessage( 'OK ');

            mrCancel:   ShowMessage( 'Cancel ');

        end;

    finally

        FreeAndNil(Form2);

    end;



end;

end.