Firemonkey 在后台执行 Form Delphi 10 Seattle

Question

我创建了一个弹出式加载屏幕表单，我想在 Firmonkey Multi 设备项目中显示在任何其他表单上方。现在我遇到了加载屏幕没有更新我在后台表单中所做的事情的问题。我该如何解决这个问题？

下面的代码是我尝试过的示例：

procedure TForm1.Button1Click(Sender: TObject);
var
  loadScreen:TfrmLoadScreen;
begin
  loadScreen := TfrmLoadScreen.Create(nil);
  loadScreen.ShowModal(
    procedure(ModalResult: TModalResult)
    var
      i:Integer;
    begin
      for i := 0 to 200 do
      begin
        loadScreen.CurrentItem := i;
        loadScreen.TextMessage := 'Item:' + loadScreen.CurrentItem.ToString;
        Sleep(100);
      end;
      ModalResult := mrCancel;
    end);
end;

我想我必须做一些多线程，但我没有任何经验这样做！我应该如何为我的加载屏幕执行此操作？

我也尝试了以下方法，但没有显示表单：

procedure TForm1.Button1Click(Sender: TObject);
var
  loadScreen:TfrmLoadScreen;
begin
  loadScreen := TfrmLoadScreen.Create(nil);
  loadScreen.OnShow := FormShowLoadScreen;
  loadScreen.Show;
end;

procedure TForm1.FormShowLoadScreen(Sender: TObject);
var
  i:Integer;
  loadScreen:TfrmLoadScreen;
begin
  loadScreen := TfrmLoadScreen(Sender);
  for i := 0 to 200 do
  begin
    loadScreen.CurrentItem := i;
    Sleep(100);
  end;
  loadScreen.Close; 
end;

Answer 1

在您的第一个代码块中，仅在 loadscreen.modalresult 设置为 0 以外的值后才调用匿名方法。这永远不会发生（我们可以看到）

在您的第二个区块中，您有 2 个不同的加载屏幕实例。他们不是同一个人。 FormShowLoadScreen 处理程序在第一个 loadscreen.show 之后被调用，但它创建了第二个 loadscreen，它有自己的显示。事实上，这可能发生得如此之快，以至于你不会看到它发生。

您确实需要了解有关 Delphi 多线程的更多信息。要显示“进度”表单，您必须将其处理（显示更新）放在一个单独线程的同步事件中，该线程在显示加载屏幕表单后立即启动。

实际上...在 FMX 中，在启动匿名线程之前显示动画指示器实际上要容易得多，然后在线程终止块中再次隐藏它。

在此处查看 Marco Cantu 的博文Background Operations on Delphi Android, with Threads and Timers