Que parpade un Texto en el StatusBar

[ecfisa]

Hola BlueSteel.

Te pongo un ejemplo que simula un parpadeo cambiando color de fondo y letra, como para darte una idea más:

Código Delphi [-]
...
var
  sw: Boolean = True;

procedure TForm1.FormCreate(Sender: TObject);
begin
  { EJEMPLO CON DOS PANELS }
  StatusBar1.Panels.Add;
  StatusBar1.Panels[0].Text:= 'Hola';
  StatusBar1.Panels[0].Style:= psOwnerDraw;
  StatusBar1.Panels.Add;
  StatusBar1.Panels[1].Text:= 'mundo';
  StatusBar1.Panels[1].Style:= psOwnerDraw;
  StatusBar1.Panels.Add;
  Timer1.Interval:= 500;
end;

procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar;
  Panel: TStatusPanel; const Rect: TRect);
begin
  case Panel.Index of
    0:if sw then    // Panels[0]
      begin
        StatusBar.Canvas.Brush.Color:= clLime;
        StatusBar.Canvas.Font.Color:= clBlack;
      end
      else
      begin
        StatusBar.Canvas.Brush.Color:= clBlack;
        StatusBar.Canvas.Font.Color:= clLime;
      end;
    1:if sw then  // Panels[1]
      begin
        StatusBar.Canvas.Brush.Color:= clRed;
        StatusBar.Canvas.Font.Color:= clYellow;
      end
      else
      begin
        StatusBar.Canvas.Brush.Color:= clYellow;
        StatusBar.Canvas.Font.Color:= clRed;
      end;
   //2:...      // Panels[2]
  end;
  StatusBar.Canvas.FillRect(Rect);
  StatusBar.Canvas.TextOut(Rect.Left,Rect.Top-2, Panel.Text);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  sw:= not sw;
  StatusBar1.Refresh;
end;
...

Un saludo.