FMX 模态窗体
dlg := TForm2.Create(nil); dlg.ShowModal(procedure(ModalResult: TModalResult) begin if ModalResult = mrOK then begin ..... end;
原文：http://www.cnblogs.com/cb168/p/4874313.html
