Delphi Studio » Примеры на Delphi » Примеры на Delphi Система » Как сделать мигающий текст с изменением цвета? (Label, Timer) Пример на Delphi »

 
 
 
Приветствуем нового пользователя: fenuampubbimi
 
Реклама на сайте

Как сделать мигающий текст с изменением цвета? (Label, Timer) Пример на Delphi

Автор: SkyLine32 | 29-03-2011, 14:32 | Просмотров: 3867 | Категория: Примеры на Delphi » Примеры на Delphi Система

1

Сейчас я покажу как можно сделать мигающий текст с изменением цвета. Используем компоненты Label и Timer. Пример на Delphi
Мигающий тест
procedure TForm1.TimerTimer(Sender: TObject);
begin
Label1.Caption := 'Мигающий текст';
if Label1.Visible then
Label1.Visible:=False
else
Label1.Visible:=True;
end;

Мигающий текст с рандомным изменением цвета
procedure TForm1.TimerTimer(Sender: TObject);
var
x : integer;
begin
x := clYellow+clRed+clBlue+clBlack+clSilver+clWhite;
Label1.Caption := 'Мигающий текст';
if Label1.Visible then
Label1.Visible:=False
else
Label1.Visible:=True;
randomize;
Label1.Font.Color := random(x);
end;
Прямая ссылка на страницу: HTML ссылка: Ссылка для форумов:
Теги: цвет, текст, Label, Timer, пример, delphi
  • Распечатать
  • 85
 (голосов: 1)
А также:
Уважаемый посетитель, Вы зашли на сайт как незарегистрированный пользователь.
Мы рекомендуем Вам зарегистрироваться либо войти на сайт под своим именем.
<
  • Публикаций: 0
  • Комментариев: 2
  • ICQ: --
  • OffLine

mikelll

  • Группа: Посетитель
  • Регистрация: 8.01.2011
  • Добавлено: 8 января 2011 14:07
 
вот так более проще)

Внимание! У вас нет прав для просмотра скрытого текста.



Информация
Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.
 
-й день
Онлайн:

Delphi Studio

Авторы сайта: SkyLine32 & FeniXElite
 2010-2011 © Delphi Studio
Наверх
rss