Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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
3-36542
Fants
2003-11-19 14:52
2003.12.12
BLOB, Jpeg, FireBird, FIBPLus


4-36903
stainer
2003-10-16 09:34
2003.12.12
tpopupmenu и hmenu


7-36864
Ega23
2003-10-06 14:54
2003.12.12
перехват сообщений


1-36756
Ahmad K
2003-12-01 18:45
2003.12.12
HTML & DOC.


3-36580
Duber
2003-11-19 16:00
2003.12.12
Есть ли СУБД в которых не нужно использовать посредников типа BDE