Текущий архив: 2003.12.12;
Скачать: CL | DM;
Вниз
создание обекта и его собития Найти похожие ветки
← →
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;
только надо будет создать этот объект перед использованием с помощю конструктора
Страницы: 1 вся ветка
Текущий архив: 2003.12.12;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.017 c
