FTP | CCD | Buscar | Trucos | Trabajo | Foros |
#1
|
|||
|
|||
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 |
#2
|
||||
|
||||
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} |
|
|
|