создание обекта и его собития

← →
lena19 (2003-12-02 23:57) [0]

привет всем
потребовалось мне создать объект и описать его события
в главном модуле до создания основной формы
(перед Application.CreateForm(TForm1, Form1))

создала обработчик
-------------
procedure my(sender:tobject);
var rnd:extended;
begin
...
MessageBox("proba","proba",5);
end;
------------------

создала сам объект
--------------
var mytimer:Ttimer;
begin
mytimer:= ttimer.Create(application.Owner);
mytimer.Interval:=1000;
mytimer.OnTimer:=my(); >>> ВСЯ ПРОБЛЕМА ТУТ <<<<
mytimer.Enabled:=true;
end.
-----------------------
а переписать обработчик на свою процедуру не удается
передаваемые параметры не совпадают
может я чтото не так делаю подскажите где ошибка
P.S.
(с статьей Жизнь и смерть в режиме run-time я знакома )

← →
sprit (2003-12-03 00:09) [1]

надо запихать процедуру my в form1:
TForm1 = class(TForm)
procedure my(Sender: TObject);
...
а в .dpr
tim.OnTimer:=form1.my;
все будет работать!

← →
closer (2003-12-03 00:10) [2]

Оформи процедуру my как метод, например так:
type TMyTimer = class(TTimer) public procedure my(sender:tobject); end; implementation procedure TMyTimer.my(sender:tobject); var rnd:extended; begin ... MessageBox("proba","proba",5); end;

создала сам объект
--------------
var mytimer:TMyTimer; begin mytimer:= TMyTimer.Create(application.Owner); mytimer.Interval:=1000; mytimer.OnTimer:=mytimer.my; >>> ВСЯ ПРОБЛЕМА ТУТ (Была) <<<< mytimer.Enabled:=true; end.
-----------------------

P.S.
Если не ошибаюсь то метод my можно определить и в другом классе:
type TMyClass = class public procedure my(sender:tobject); end;
только надо будет создать этот объект перед использованием с помощю конструктора

создание обекта и его собития Найти похожие ветки