| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
как создать свой обработчик и повесить его на событие Timer a [D6]
AFrolov © (2002-10-25 17:15:00)как создать свой обработчик и повесить его на событие Timer"a?
Заранее спасибо.
cyborg (2002-10-25 19:59:00) [1]
Procedure OnTimerProcedure;
Begin
End;
//Инициализация
SetTimer(Handle, номер_таймера,
миллисекунды, addr(OnTimerProcedure));
//Финализация :)
KillTimer(Handle,номер_таймера);
777 (2002-10-25 17:59:00) [2]:|
Anatoly Podgoretsky (2002-10-25 17:58:00) [3]:-) :-) :-)
TTCustomDelphiMaster (2002-10-25 17:50:00) [4]
> 777 © (25.10.02 17:45)
> 777 © (25.10.02 17:39)
???
Anatoly Podgoretsky (2002-10-25 17:48:00) [5]Самое простое, бросить его на форму и дважды щелкнцть и вуаля
777 (2002-10-25 17:45:00) [6]
> TTCustomDelphiMaster © (25.10.02 17:31)
Извиняюсь, смысл тот же получается :)
AFrolov (2002-10-25 17:41:00) [7]Забыл, что это должен быть метод класса :(
777 (2002-10-25 17:39:00) [8]// Сам обработчик
procedure TForm1.OnTimerProcedure(Sender: TObject); // Обязательно метод класса с такими параметрами (не обязательно TForm1)
begin
//...
end;
// Назначение обработчика
procedure TForm1.Timer1Timer(Sender: TObject);
begin
OnTimerProcedure(Sender);
end;
TTCustomDelphiMaster (2002-10-25 17:31:00) [9]// Сам обработчик
procedure TForm1.OnTimerProcedure(Sender: TObject); // Обязательно метод класса с такими параметрами (не обязательно TForm1)
begin
//...
end;
// Назначение обработчика
procedure TForm1.FormCreate(Sender: TObject);
begin
Timer1.OnTimer := OnTimerProcedure;
end;
AFrolov (2002-10-25 17:31:00) [10]В смысле процедура, которая должна пыполняться когда происходит событие);
777 (2002-10-25 17:23:00) [11]В каком сиысле свой обработчик?
| |
