usar TaniIndocator

[giantonti]

lo que pasa que estoy trabajando con firemonkey algunos componentes no son tan conocido, el TaniIndocator es igual al progressbar con la diferencia que es un circulito muy comun en los equipos mac.

[defcon1_es]

Hola.
Lo puedes mostrar en una ventana, panel, boton, etc. ya que en FireMonkey todos los controles visuales pueden ser contenedores de otros controles.

Ejemplo:

Código Delphi [-]
procedure Aviso(const TextoAviso: string; Mostrar: Boolean);
begin
  Application.ProcessMessages;
  if Mostrar then
  begin
    PanelAviso.Visible := True;
    PanelAviso.BringToFront;
    TextAvisoLinea1.Text := TextoAviso;
    AniIndicator1.Enabled := True; //Activo el AniIndicator
  end
  else begin
    AniIndicator1.Enabled := False;  //Desactivo el AniIndicator
    PanelAviso.Visible := False;
    PanelAviso.SendToBack;
  end;
  Application.ProcessMessages;
end;