hottabych1607
Умник
Все очень просто!
Итак для урока нам понадобиться один Label и Timer! Ставим их в любое место...
Итак, теперь зададим Timer действие...Щелкните по Timer два раза и вылезет окошко с кодом, примерно такое:
Вот и все! Надеюсь кому нибудь понадобиться!
Итак для урока нам понадобиться один Label и Timer! Ставим их в любое место...
Итак, теперь зададим Timer действие...Щелкните по Timer два раза и вылезет окошко с кодом, примерно такое:
Код:
[B]procedure TForm1.Timer1Timer(Sender: TObject);[/B]
[B]var[/B]
[B]x:Integer;[/B] //Тут мы объявляем переменную x, типа Integer, Integer - Целочисленный тип
[B]begin[/B] //Начало кода
[B]x:=clYellow+clred+clblue+clblack;[/B] //Переменной x присвоим цвета ClYellow желтый, ClRed - Красный и.т.д!
[B]label1.Font.Color:=Random(x);[/B] //Теперь Label1 мы зададим Рандомный/Случайный цвет, который будет меняться каждую секунду, Если хотите чтобы изменялось каждой 2 секунды измените в таймере Interval на 2000...2000 - Миллисекунд, тоесть если хотите 10 секунд ставим Interval на 10000!
[B]end;[/B]//Конец кодаВот и все! Надеюсь кому нибудь понадобиться!