Мигающий Label - Примеры на Delphi7 - Delphi - Каталог статей

Меню сайта

Мини-чат

Категории

Примеры на Delphi7 [110]

Помощь по Delphi [12]

Описание процедур и т.п. на Delphi [7]

Главная » Статьи » Delphi » Примеры на Delphi7

Мигающий Label

Понадобится: Label(Standart) и еще Timer(system)

В обработчике событий OnTime Timer'а пишем:

procedure TForm1.Timer1Timer(Sender: TObject);
var
x : integer;
begin
x :=clYellow+clRed+clBlue+clBlack+clSilver+clWhite;
Label1.caption := 'AiX';{В ковычках прописывается текст который будет мигать)))}
if label1.visible then
Label1.Visible:=False
else
Label1.Visible:=True;
randomize;
Label1.Font.Color := random(x)

end;

Категория: Примеры на Delphi7 | Добавил: DelphiAiX (01.04.2011)

Просмотров: 3289 | Рейтинг: 0.0/0

Всего комментариев: 0

Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]

Все материалы размещенные на сайте пренадлежат их владельцам и предоставляются исключительно в ознакомительных целях.
Администрация ответственности за содержание материала не несет и убытки не возмещает.
По истечению 24 часов материал должен быть удален с вашего компьютера.
Незаконная реализация карается законами РФ и Украины : "Об авторском и смежном праве".
При копировании материала, ссылка на сайт обязательна! Сделать бесплатный сайт с uCoz | Карта сайта | Карта форума