hacer blink

[agora18]

Hola amigos

Tengo una barra status bar en la cual mando todos los mensajes de error y de información, quiero algunos mensajes sean intermitentes............por favor

[roman]

Quizá poniendo una componente TTimer para alternar el texto del mensaje entre el texto actual y una cadena vacía; por ejemplo

{$WRITEABLECONST ON}
procedure TForm1.OnTimer(Sender: TObject);
const
  Mostrar: Boolean = false;

begin
  if Mostrar then
    StatusBar1.SimpleText := 'texto del mensaje'
  else
    StatusBar1.SimpleText := '';

  Mostrar := not Mostrar;
end;
{$WRITEABLECONST OFF}

// Saludos