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

← →
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.

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