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

Почему не работает таймер   Найти похожие ветки 

← →
mox ©   (2003-07-04 22:41) [0]

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.

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

---

← →
Gandalf ©   (2003-07-05 11:20) [1]

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

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

---

← →
Кладов   (2003-07-05 12:47) [2]

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

---

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

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



Память: 0.45 MB
Время: 0.032 c