Текущий архив: 2004.05.16;
Скачать: CL | DM;

Вниз

Как программно создать таймер?   Найти похожие ветки 

← →
pd   (2004-05-01 12:57) [0]

Нужно чтобы по прошествию одной секунды таймер увеличивал переменную.

---

← →
begin...end ©   (2004-05-01 13:09) [1]

Компонент такой есть - TTimer.

...

Timer1.Interval := 1000;

...

procedure TForm1.Timer1OnTimer(Sender: TObject);
begin
 // Увеличивайте переменную
end;

Хотя, вопрос не очень-то и понятен.

---

← →
begin...end ©   (2004-05-01 13:12) [2]

Упс...

Не Timer1OnTimer, а Timer1Timer

---

← →
Cardinal ©   (2004-05-01 13:13) [3]

Если я правильно понял, вам нужно следующее:

procedure TForm1.Button1Click(Sender: TObject);
var t: ttimer;
begin
t:=ttimer.Create(nil);
t.Interval:=1000;
t.OnTimer:=//событие, c процедурой, увеличивающей переменную//
end;


---

← →
Anatoly Podgoretsky ©   (2004-05-01 13:16) [4]

Все объекты создаются с помозью конструктора, практически всегда его имя Create

---

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

Текущий архив: 2004.05.16;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.022 c