Страница 1 из 1
Мигание надписей?
Добавлено: 05 ноя 2006, 12:31
Dees
Подскажите пожалуйста, как в Delphi реализовать мигание надписи (Label) на форме при помощи компонента Timer? Как задать период этих миганий и их количество? :?: (1 мигание – это 1 исчезновение и одно появление надписи).
Заранее благодарю за помощь.
Добавлено: 05 ноя 2006, 14:12
maelz
timer1.interval:=1000 (задержка в мс: 1000мс=1 секунде)
begin
if label1.visible=true then label1.visible=false
else label1.visible:=true;
end;
Добавлено: 05 ноя 2006, 16:56
Duncon
Не лучше меняй цвет фона надписи, при этом сделай флаг и в зависимости от него переключай...
Добавлено: 05 ноя 2006, 18:43
Dees
Хорошо. А как задать количество миганий? Если через FOR, то как и где его прописывать?... :?
Добавлено: 05 ноя 2006, 22:23
Duncon
Всмысле количество, у тебя таймер и он будет каждую секунду выполнять процедуру (пока не отключишь)..
Добавлено: 07 ноя 2006, 12:13
Игорь Акопян
maelz,
label1.visible := not label1.visible;
Добавлено: 09 ноя 2006, 15:36
Naeel Maqsudov
А как задать количество миганий? Если через FOR, то как и где его прописывать?...
В обработчике OnTimer напишите в начале
Dec(Timer1.Tag);
If Timer1.Tag=0 then Timer1.Enadble=false;
Теперь для запуска таймера делайте:
Timer1.Tag=N;
Timer1.Enadble=true;
Добавлено: 12 ноя 2006, 17:11
Dees
Dec(Timer1.Tag);
Не знаю, что неправильно, но пишет что в
Dec(Timer1.Tag); -
Left side cannot be assigned to
Dec - это уменьшение значения Timer1.Tag на единицу, на сколько я понимаю?
Добавлено: 13 ноя 2006, 21:41
Dees
Все, решение уже нашел. Всем спасибо, тема закрыта.