Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Как сделать таймер ? 
:(
    Опции темы
Frai
Дата 19.5.2005, 06:48 (ссылка)    |    (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered











Народ подскажите как можно реализовать посекундный таймер чтобы
показывал только секунды.
  Вверх
s-mike
Дата 19.5.2005, 07:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 9
Всего: 16



Есть такой компонент - TTimer, у него есть событие OnTimer. Вот его обрабатывать, и будет посекундный таймер.
PM MAIL WWW   Вверх
Payne
Дата 19.5.2005, 08:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Детектив
*


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

Репутация: 4
Всего: 10



Приведу пример, чтобы вы наверняка поняли.
Компонент TTimer находится на вкладке System палитры компонентов. Он имеет нужное вам свойство (Interval) и нужное событие (OnTimer). Свойство Interval отвечает за промежуток времени в миллисекундах, через который будет срабатывать событие OnTimer. Если вам нужно создать таймер, который будет показывать только секунды, ставьте свойство Interval равным 1000 (миллисекунд).
С этим вроде разобрались. Теперь бросаем на форму компонент TLabel, его Caption делаем равным '0', в разделе var после Form1: TForm1; пишем еще одну переменную - sec: integer = 0;
Создаем для TTimer обработчик события OnTimer, в котором нужно написать всего две строки кода:

Код

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  sec := sec + 1;  //увеличиваем секунды на одну
  Label1.Caption := IntToStr(sec);  //и выводим новое значение на TLabel
end;

Теперь у нас есть простейший секундомер smile .
PM MAIL WWW ICQ Skype   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

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


 




[ Время генерации скрипта: 0.0589 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.