как создать свой обработчик и повесить его на событие Timer a

← →
AFrolov © (2002-10-25 17:15) [0]

как создать свой обработчик и повесить его на событие Timer"a?
Заранее спасибо.

← →
777 © (2002-10-25 17:23) [1]

В каком сиысле свой обработчик?

← →
TTCustomDelphiMaster © (2002-10-25 17:31) [2]

// Сам обработчик
procedure TForm1.OnTimerProcedure(Sender: TObject); // Обязательно метод класса с такими параметрами (не обязательно TForm1)
begin
//...
end;

// Назначение обработчика
procedure TForm1.FormCreate(Sender: TObject);
begin
Timer1.OnTimer := OnTimerProcedure;
end;

← →
AFrolov © (2002-10-25 17:31) [3]

В смысле процедура, которая должна пыполняться когда происходит событие);

← →
777 © (2002-10-25 17:39) [4]

// Сам обработчик
procedure TForm1.OnTimerProcedure(Sender: TObject); // Обязательно метод класса с такими параметрами (не обязательно TForm1)
begin
//...
end;

// Назначение обработчика
procedure TForm1.Timer1Timer(Sender: TObject);
begin
OnTimerProcedure(Sender);
end;

← →
AFrolov © (2002-10-25 17:41) [5]

Забыл, что это должен быть метод класса :(

← →
777 © (2002-10-25 17:45) [6]

> TTCustomDelphiMaster © (25.10.02 17:31)

Извиняюсь, смысл тот же получается :)

← →
Anatoly Podgoretsky © (2002-10-25 17:48) [7]

Самое простое, бросить его на форму и дважды щелкнцть и вуаля

:-) :-) :-)

Procedure OnTimerProcedure; Begin End; //Инициализация SetTimer(Handle, номер_таймера, миллисекунды, addr(OnTimerProcedure)); //Финализация :) KillTimer(Handle,номер_таймера);

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