| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Почему не работает таймер

mox ©   (2003-07-04 22:41:00) 

var
 form1: PControl;
 timer1: PTimer;

procedure timer1timer(Sender: PControl);
begin
form1.caption:='formname';
end;


begin
 form1:=NewForm(Applet, 'Anketa WebExperts');
 timer1:=NewTimer(1);
 timer1.OnTimer := TOnEvent(MakeMethod(nil,@Timer1Timer));
 run(form1);
end.

Если можно небольшой примерчик работы с таймером......

---

Кладов   (2003-07-05 12:47:00) [1]

И когда sender понадобится, то на самом деле это таймер, и тип у параметра PObj.

---

Gandalf   (2003-07-05 11:20:00) [2]

А включать его кто будет?
timer1.OnTimer := TOnEvent(MakeMethod(nil,@Timer1Timer));
timer1.Enabled:=true;
run(form1);

ЗЫ: А чем MCK не угодил - таких вопросов бы не было.

---

Наверх