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
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 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 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;
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.