Форум: "Основная";
Текущий архив: 2002.11.07;
Скачать: [xml.tar.bz2];
Внизкак создать свой обработчик и повесить его на событие 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 вся ветка
Форум: "Основная";
Текущий архив: 2002.11.07;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.006 c