使用Delphi XE5，我可以在Xcode中使用类似PresentModal的动画呈现模态对话框

Question

我希望在delphi中启动一个表单/视图，其结果与使用相同：

漂亮的动画：

[self presentViewController:signInController animated:YES completion:nil];

无动画：

SignInForm.ShowModal(procedure(ModalResult: TModalResult)
begin
  if ModalResult = mrOK then
  begin
    ShowMessage('test');
  end;
end);

Answer 1

我没有找到批准的最佳做法。最后，我不得不创建一个动画并用手动动画显示它：（