|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
19.06.2009, 20:23 | #1 |
ACM!
Форумчанин
Регистрация: 19.06.2009
Сообщений: 382
|
Проблема с Sleep!
У меня такая проблема: каждую секунду значение Label1.Caption должно уменьшаться на 1. Я написал цикл:
Код:
Вопрос: как сделать, чтобы задержка выполнялась не сразу и не зависала программу? |
19.06.2009, 20:27 | #2 |
Участник клуба
Регистрация: 16.03.2009
Сообщений: 1,013
|
ну, возможно стоит использовать таймер
Uguu~
|
19.06.2009, 20:30 | #3 |
ACM!
Форумчанин
Регистрация: 19.06.2009
Сообщений: 382
|
Таймер
А можно чуть поподробней? Про таймер? Я только-только начал изучать программирование...
|
19.06.2009, 20:31 | #4 |
Участник клуба
Регистрация: 16.03.2009
Сообщений: 1,013
|
ну кинуть на форму таймер с вкладки System (у меня делфи 7), поставите enabled у него в false и написать как-нибудь так
Код:
Uguu~
|
19.06.2009, 20:51 | #5 |
ГОСТ 2.403-75
Пользователь
Регистрация: 04.05.2009
Сообщений: 92
|
после
Код:
Код:
только да, программа будет подвисать upd. как вариант в отдельном потоке или таймер, или еще так: Код:
мой скромный delphi блог
|
19.06.2009, 22:22 | #6 |
Участник клуба
Регистрация: 12.08.2008
Сообщений: 1,977
|
Цикл можно "обойти" :
Код:
ЗЫ: начальное значение Label1.Caption (обязательно числовой тип - integer, byte )устанавливаем в Инспекторе объектов при проектировании.
И не сомневайся даже ... отдых - кайф, работа - лажа!
Последний раз редактировалось DeKot; 19.06.2009 в 22:25. |
20.06.2009, 09:53 | #7 |
ACM!
Форумчанин
Регистрация: 19.06.2009
Сообщений: 382
|
С таймером вот такая ошибка:
[Error] Unit2.pas(40): Undeclared identifier: 'Timer1Timer' Да и вообще, тут же цикла нет, по идее действие будет один раз выполняться? Или сама процедура как цикл? 2crystalbit: В обоих вариантах все то же самое (то есть зависание). 2DeKot: А тут действие всего один раз выполняется и все. |
20.06.2009, 10:52 | #8 |
Участник клуба
Регистрация: 09.11.2007
Сообщений: 1,762
|
Вот так всё прекрасно работает:
Код:
|
20.06.2009, 15:40 | #9 | |
Участник клуба
Регистрация: 12.08.2008
Сообщений: 1,977
|
To k1r1ch
Цитата:
А ты программу с этим кодом запускал? На форме значение в Label1 каждую сек. уменьшается на 1 от заданного в Инспекторе, а при достижении 0 просто постоянно висит 0.Код то выполняется в процедуре FormPaint.
И не сомневайся даже ... отдых - кайф, работа - лажа!
|
|
20.06.2009, 18:47 | #10 |
Форумчанин
Регистрация: 23.05.2008
Сообщений: 219
|
А так чтоли нельзя?:
Код:
The Revolution is Now!
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
запросы типа "sleep" | bilep | SQL, базы данных | 0 | 23.01.2009 21:37 |
Проблема с рамами/Проблема с ЖД | DRAGGER | Компьютерное железо | 6 | 04.01.2009 23:37 |
Аналог Sleep() | Ants | Общие вопросы Delphi | 2 | 18.11.2008 13:11 |
Функция для Sleep | russian-stalker | Общие вопросы Delphi | 5 | 12.09.2008 16:40 |
Альтернатива sleep | Zuzlan | Общие вопросы Delphi | 2 | 01.11.2007 01:44 |