Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Delphi [игнор отключен] [закрыт для гостей] / TIMER / 9 сообщений из 9, страница 1 из 1
07.08.2003, 16:05
    #32230254
jooo
jooo
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TIMER
КАК СДЕЛАТЬ ОСЧЁТ ВРЕМЕНИ ОТ 60 ДО 0
ШЧТОБЫ БЫЛО ВИДНО В LABELе
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.08.2003, 16:33
    #32230303
MrAlex
MrAlex
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TIMER
Повесить обработчик события на TTimer.OnTimer. Свойство таймера Interval = 1000 - 1 секунда.

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
var 
  i : Integer =  60  ;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if i <>  0  then
      i := i- 1 
    else
      Timer1.Enabled := false ;
  Label1.Caption := IntToStr(i) ;
end;


При достижении 0. Таймер отключится.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.08.2003, 17:05
    #32230357
jooo
jooo
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TIMER
А КАК ТОГДА ДОБАВИТЬ ДОПУСИМ К 60 ЕЩЁ 30 ????????????????
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.08.2003, 17:08
    #32230360
JibSkeart
JibSkeart
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TIMER
Вмысле добавить ?

чтобы показывало 90 ??

если так то енто

var i: integer = 90
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.08.2003, 17:10
    #32230361
jooo
jooo
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TIMER
НЕ МНЕ НАДО ЧТОБЫ ВО ВРЕМЯ РАБОТЫ ПРИЛОЖЕНИЯ ПРИ НАЖАТИИ НА КНОПКУ
ДОБАВИЛОСЬ 30 СЕК
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.08.2003, 17:12
    #32230366
JibSkeart
JibSkeart
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TIMER
i:= i + 30 ;
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.08.2003, 17:27
    #32230384
Voha
Voha
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TIMER
И еще Label.Refresh после каждого Label.Caption:= ...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.08.2003, 17:31
    #32230391
MrAlex
MrAlex
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TIMER
Voha писал:
И еще Label.Refresh после каждого Label.Caption:= ...


Зачем ему рефрешь делать... Данный метод не занимает же весь поток...
Он и так прекрасно отрисовывает каждую секунду.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.08.2003, 17:40
    #32230404
MrAlex
MrAlex
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TIMER
jooo писал:НЕ МНЕ НАДО ЧТОБЫ ВО ВРЕМЯ РАБОТЫ ПРИЛОЖЕНИЯ ПРИ НАЖАТИИ НА КНОПКУ ДОБАВИЛОСЬ 30 СЕК


Код: plaintext
1.
2.
3.
4.
procedure TForm1.Button1Click(Sender: TObject);
begin
  i := i+ 30  ;
end;


Отработает нормально, так как поток не занят выполнением только одного метода OnTimer. Он вызывается раз в секунду...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Delphi [игнор отключен] [закрыт для гостей] / TIMER / 9 сообщений из 9, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]