Ver Mensaje Individual
  #4  
Antiguo 15-04-2013
Avatar de defcon1_es
defcon1_es defcon1_es is offline
Miembro
 
Registrado: mar 2004
Ubicación: Cuenca - España
Posts: 533
Reputación: 23
defcon1_es Va por buen camino
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;
__________________
Progress Openedge
https://abevoelker.com/progress_open...dered_harmful/


Delphi forever...
Responder Con Cita