Скачать: CL | DM;

как создать свой обработчик и повесить его на событие 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]

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

---

← →
TTCustomDelphiMaster ©   (2002-10-25 17:50) [8]

> 777 © (25.10.02 17:45)


> 777 © (25.10.02 17:39)

???

---

← →
Anatoly Podgoretsky ©   (2002-10-25 17:58) [9]

:-) :-) :-)

---

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

:|

---

← →
cyborg ©   (2002-10-25 19:59) [11]


Procedure OnTimerProcedure;
Begin
End;

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

//Финализация :)
KillTimer(Handle,номер_таймера);


---

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

Скачать: CL | DM;



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