Foros Club Delphi - hacer blink

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - hacer blink (https://www.clubdelphi.com/foros/showthread.php?t=4261)

agora18

07-10-2003 21:53:12

hacer blink

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

07-10-2003 22:02:29

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

Código:

{$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

La franja horaria es GMT +2. Ahora son las 23:36:08.