Firemonkey do stuff in background Form Delphi 10 Seattle

  

I’ve created a pop-up loadscreen Form that I want to show above any other form in a Firmonkey Multi device project. Now i’ve run into the problem that the loadscreen doesn’t get updated with the things I do in the background Form. How can I solve this?

In the code below is an example of what i’ve tried:

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;

I guess I have to do some multi-threading, but I don’t have any experience doing this! How should I do this for my loadscreen?

I’ve also tried the following, but the form doesn’t get shown:

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;

Comments are closed.