ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / TIMER
9 сообщений из 9, страница 1 из 1
TIMER
    #32230254
jooo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
jooo
Гость
КАК СДЕЛАТЬ ОСЧЁТ ВРЕМЕНИ ОТ 60 ДО 0
ШЧТОБЫ БЫЛО ВИДНО В LABELе
...
Рейтинг: 0 / 0
07.08.2003, 16:05
| Ответить | Цитировать | Написать  
TIMER
    #32230303
MrAlex
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MrAlex
Участник
Повесить обработчик события на 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, 16:33
| Ответить | Цитировать | Написать  
TIMER
    #32230357
jooo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
jooo
Гость
А КАК ТОГДА ДОБАВИТЬ ДОПУСИМ К 60 ЕЩЁ 30 ????????????????
...
Рейтинг: 0 / 0
07.08.2003, 17:05
| Ответить | Цитировать | Написать  
TIMER
    #32230360
Фотография JibSkeart
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
JibSkeart
Участник
Вмысле добавить ?

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

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

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


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


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


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


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