Firemonkey Application.ProcessMessages

[er_lolo]

Parece que he conseguido resolver mi problema metiendo el calculo en un hilo. (teniendo cuidado que no llamar a componentes visuales, o utilizar syncronice para ello.

Por si le sirve a alguien, esto es lo que hice. (si es incorrecto agradezco me saquen del error.).

Código Delphi [-]
      ProgressFrame1.Label1.Text := 'Realizando cálculos, por favor espere...';
      ProgressFrame1.Visible := true;
      ProgressFrame1.BringToFront;

      Application.ProcessMessages;
      TThread.CreateAnonymousThread(procedure
        begin
           CalculaDatos;
           ProgressFrame1.Visible := false;
        end).Start;

[xalo]

No es correcto como lo estás haciendo er_lolo.
Una de las múltiples formas de hacerlo sería la siguiente:

Código Delphi [-]
      ProgressFrame1.Label1.Text := 'Realizando cálculos, por favor espere...';
      ProgressFrame1.Visible := true;
      ProgressFrame1.BringToFront;
     
      TThread.CreateAnonymousThread(procedure  
      begin
         // Aquí iría todo el código que no afecte a interface usuario....cálculos...todo usando variables locales
         CalculaDatos;
         TThread.Synchronize(nil , procedure
         begin
            // Aquí iría todo el código que cambie algo de la UI. TEdit,TLabel,......
            ProgressFrame1.Visible := false;
         end);
       end).Start;

[er_lolo]

Empezado por xalo

No es correcto como lo estás haciendo er_lolo.
Una de las múltiples formas de hacerlo sería la siguiente:

Código Delphi [-]
      ProgressFrame1.Label1.Text := 'Realizando cálculos, por favor espere...';
      ProgressFrame1.Visible := true;
      ProgressFrame1.BringToFront;
     
      TThread.CreateAnonymousThread(procedure  
      begin
         // Aquí iría todo el código que no afecte a interface usuario....cálculos...todo usando variables locales
         CalculaDatos;
         TThread.Synchronize(nil , procedure
         begin
            // Aquí iría todo el código que cambie algo de la UI. TEdit,TLabel,......
            ProgressFrame1.Visible := false;
         end);
       end).Start;

Efectivamente, lo pongo en el texto y no lo aplico, todo lo que afecta a la UI. en el TThread.Synchronize.

Gracias!.