Firemonkey 移动平台 Form 显示使用 ShowModal 范例

procedure TForm1.Button1Click(Sender: TObject);
begin
     Form2 := TForm2.Create(Self);
     Form2.ShowModal(procedure(ModalResult : TModalResult)
                     begin
                          if ModalResult = mrOK then
                             // do something here
                     end);
end;

 

转载于:https://www.cnblogs.com/onechen/p/3990395.html