| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

TTimer [D7, Win95/98, Win2k, WinXP]

deltav1 ©   (2006-05-22 11:00:00) 

Можно ли реализовать различние интервали времени для различних обьектов с помощью только одного таймера

---

AbrosimovA   (2006-05-22 11:38:00) [1]

Извиняюсь, наврал с кодом.

---

AbrosimovA   (2006-05-22 11:36:00) [2]

Например, так:

Задаёшь Timer1.Interval:=1000 //1 сек

var t: cardinal;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
t:=1;
<Код для 1-го объекта> //раз в 1 сек
case t of
 5:   <Код для 2-го объекта>; //раз в 5 сек
 10: <Код для 3-го объекта>; //раз в 10 сек
 ...
 N:  <Код для N-го объекта>; //раз в N сек
end;  
Inc(t)
end;

---

Наверх