VPF::Отсчет времени. - Форум программистов

Pipelly

Дата 8.2.2003, 04:12 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Добрый вечер.

У меня вопрос по поводу отсчета времени. Нужно отсчитать время от 10 до 0. Я понимаю, что нужно кинуть на форму таймер, установить интервал равный одной секунде (1000). А в обработчике таймера уже работать. Но вот как сделать отсчет от 10 секунд до нуля и выводить этот процесс в Caption формы я просто не знаю. Помогите, если будет время. Примеры никогда не мешают!

Unregistered

Дата 8.2.2003, 04:32 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Ну так
t:=10;

В обработчике onTimer пишешь Dec(t)
И
Caption:=IntToStr(t);

Step

Дата 8.2.2003, 04:43 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 5151
Регистрация: 26.9.2002
Где: дурдом.UA

Репутация: нет
Всего: 25

целому присваеваеш 10 запускаеш таймер, при каждом сообщение уменьшаеш значения переводиш в стринг и выдаеш в свойство капшион. когда значение =0 останавливаеш таймер.

--------------------

- Дурак учится на своих ошибках, умный на чужих.
- умные учатся у дураков

Mikel

Дата 8.2.2003, 22:08 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник Клуба
Сообщений: 882
Регистрация: 30.3.2002
Где: Саратов

Репутация: 1
Всего: 2

Код

...
Var C:Integer;

...OnCreate...
begin
C:=10;
end;

...Timer1.OnTimer...
begin
if C<0
   then Timer1.Enabled:=FALSE;
Label1.Caption:=IntToStr©;
Dec©;
end;

Это сообщение отредактировал(а) Mikel - 8.2.2003, 22:08

--------------------

...so remember, it's better to burn out than to fade away

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »