|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
04.12.2006, 19:16 | #1 |
Пользователь
Регистрация: 01.11.2006
Сообщений: 63
|
help
Задача ерунда! Но получается не то, как хотелось бы
*********************************** ****************************** допустим хочу чтобы при нажатии кнопки (Button1), панель (Panel1) начинала мигать (изменять свой цвет: например сначала красный, потом зеленый, а потом синий, и осталась синей). Получается панель синей, но с задержкой 1 секунда (500+500). что не так??? вот код: *********************************** ********************* procedure TForm1.Button1Click(Sender: TObject); begin panel1.Color:=clRed; sleep(500); panel1.Color:=clGreen; sleep(500); panel1.Color:=clBlue; end; |
04.12.2006, 19:48 | #2 |
Павел Сергеевич
Форумчанин
Регистрация: 05.11.2006
Сообщений: 665
|
Sleep очень интересная процедура....
Сделай так: Код:
Познавая других, мы познаем себя.
С'est la vie... |