Firemonkey Application.ProcessMessages

[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!.