Скачать: CL | DM;

TTimer   Найти похожие ветки 

← →
deltav1 ©   (2006-05-22 11:00) [0]

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

---

← →
AbrosimovA ©   (2006-05-22 11:36) [1]

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

Задаёшь 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;

---

← →
AbrosimovA ©   (2006-05-22 11:38) [2]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.049 c