Как программно создать таймер?

← →
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;

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

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