Событие OnTimer

← →
GrieVeR-13 © (2008-07-11 18:53) [0]

type TForm1 = class(TForm) procedure procOnTimer(Sender: TObject); <...> var T:TTimer; <...> procedure TForm1.procOnTimer(Sender: TObject); begin //inc(i); end; procedure TForm1.Button2Click(Sender: TObject); begin if T <> nil then T.Enabled:=false else begin T:=TTimer.Create(nil); T.OnTimer:=procOnTimer; T.Interval:=1000; end; T.Enabled:=true; <...>
Здравствуйте,возникла такая задачка:
Есть таймер "T", который создается по нажатию кнопки. Надо передать через T.OnTimer:=procOnTimer; переменную i (которая закомментирована) как входной параметр. Это возможно? Просто хотел, чтобы несколько разных таймеров запускали одну процедуру, а в ней потом (в зависимости от значения i) выполнялось определенное действие.

← →
Тын-Дын © (2008-07-11 19:01) [1]

Передавай нужный параметр/ссылку на него в Self.Tag,в обработчике проверяй в TTimer(Sender).Tag.

← →
Johnmen © (2008-07-11 19:31) [2]

> несколько разных таймеров

А в чем фишка?

← →
GrieVeR-13 © (2008-07-11 19:33) [3]

Тын-Дын
Сразу не подумал об этом, спасибо, заработало=)

> А в чем фишка?

фишка в том, что одна процедура из нескольких таймеров вызывается. Причем таймеры сами создаются по нажатию на кнопку.

Прикинь, не надо писать по своей процедуре для каждого таймера.

Событие OnTimer Найти похожие ветки