как описать событие OnTimer в таймере созданым програмно

← →
Pierre © (2006-08-29 01:15) [0]

Помогити пожилуйста. Пишу шпил и мне необходимо чтобы во время работы проги создавался таймер. Никак немогу правильно сделать описание события OnTimer подскажите как это сделать или хотябы скинте ссылку где прочесть.

P.S.
Я не ленивый просто сроки сдачи проги поджимают и на поиски инфы нет времени. Заранее спасибо всегда ваш Pierre

← →
Ketmar © (2006-08-29 01:27) [1]

ленивый. пока печатал это, мог найти.
в описании класса формы:
procedure TimerHandler (sender: TObject);

после создания таймера:
timer.OnTimer := TimerHandler;

← →
Zeqfreed © (2006-08-29 01:27) [2]

procedure TForm1.MyOnTimer(Sender: TObject); begin Caption := Caption + "."; if (length(Caption) > 10) then Caption := ""; end; procedure MyOnTimer2(Sender : TObject); begin ShowMessageFmt("%d", [(Sender as TTimer).Tag]); end; procedure TForm1.Button1Click(Sender: TObject); var m : TMethod; tmp : TTimer; begin with TTimer.Create(Self) do begin OnTimer := MyOnTimer; Interval := 1000; Enabled := true; end; tmp := TTimer.Create(Self); m.Code := @MyOnTimer2; m.Data := Pointer(tmp); tmp.OnTimer := TNotifyEvent(m); tmp.Tag := 5; tmp.Interval := 5000; tmp.Enabled := true; end;

← →
Pierre © (2006-08-29 01:48) [3]

ОГРОМНОЕ СПАСИБО

← →
begin...end © (2006-08-29 08:16) [4]

> Zeqfreed © (29.08.06 01:27) [2]

Во втором случае процедуру правильнее будет объявить так:

procedure MyOnTimer2(Self, Sender : TObject);

> [2] Zeqfreed © (29.08.06 01:27)
ну зачем людей гадостям учишь? вот так и кочует из программы в программу неверный код (см [3]). %-)

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