Версия для печати темы Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > Мигание текста в Label

Автор: Wan22 20.3.2011, 18:56

Подскажите как при помощи таймера сделать так, чтобы текст в лейбле мигал?

Автор: northener 20.3.2011, 19:56

Цитата(Wan22 @  20.3.2011,  18:56 ) Подскажите как при помощи таймера сделать так, чтобы текст в лейбле мигал?   В процедуре таймера написать что-то вроде этого: Код   if Label1.Font.Color = clWindowText then Label1.Font.Color:=clBtnFace   else Label1.Font.Color:=clWindowText;

Автор: Keeper89 20.3.2011, 19:57

В событии OnTimer менять шрифт на НУЖНЫЙ->МИГАЮЩИЙ->НУЖНЫЙ...

Автор: Данкинг 20.3.2011, 20:01

Видимо, делать цвет текста таким же, как цвет фона.

Автор: Wan22 20.3.2011, 20:17

Всем спасибо. С подменой цвета сразу получилось.   Поставил бы плюсы, но для этого оказывается нужно не менее 100 постов.

Автор: Molodec 23.3.2011, 14:01

А у меня есть идея.  Запись в массиве цвета и хранить указатель.  Смотрите, что получается, при срабатывании таймера цвет меняется на i-ый элемент массива, при этом i увеличивается на единицу, и проверяется достиг ли конца массива. Если да то i сбрасывается. Так, по крайней мере, у Вас будет больше цветов.  Удачи!

Автор: MetalFan 23.3.2011, 17:18

Цитата(Данкинг @  20.3.2011,  20:01 ) Видимо, делать цвет текста таким же, как цвет фона.  может просто visible менять?)

Автор: Wan22 23.3.2011, 19:07

Цитата(MetalFan @  23.3.2011,  17:18 ) может просто visible менять?)          а то я вначале так и пытался сделать, но не получилось у меня.

Автор: northener 24.3.2011, 01:08

Цитата(Wan22 @  23.3.2011,  19:07 ) а то я вначале так и пытался сделать, но не получилось у меня.  Да что тут может не получиться? (с) Код procedure TForm1.Timer1Timer(Sender: TObject); begin   Label1.Visible:=not Label1.Visible;  end;

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)