Создание события?

← →
АлександрАл (2011-06-30 19:59) [0]

Есть код в модуле MD5.pas
Type
Ton_MD5_Progress=procedure (pos,siz:Integer) of object;

Var
on_MD5_Progress:Ton_MD5_Progress;

procedure ...

if Assigned(on_MD5_Progress)
Then on_MD5_Progress(TotalBytes,Size);

и инвормация что "assign on_MD5_Progress to one of your form method that will have the same signature (pos,Size:Integer) parameters"

А как это сделать?
Создать в модуле формы процедуру procedure MD5Event (pos,siz:Integer);

и в событии формы OnCreate написать MD5Event := MD5.on_MD5_Progress
Или как? Напишите пожалуйста пример.

← →
Ega23 © (2011-06-30 20:04) [1]

есть процедура, а есть метод.
Либо убрать of object, либо назначать метод.

← →
MBo © (2011-06-30 20:05) [2]

>Создать в модуле формы процедуру procedure MD5Event (pos,siz:Integer);
В общем - да, написать метод объекта с такой сигнатурой

>и в событии формы OnCreate написать MD5Event := MD5.on_MD5_Progress
Наоборот -второму присвоить (назначить) первое

← →
АлександрАл (2011-06-30 20:14) [3]

А не в общем?
Т.е. я пишу там где у меня описание всех событий TForm1,

procedure MD5Event (pos,siz:Integer);
а в TForm1.OnCreate

MD5.on_MD5_Progress := TForm1.MD5Event

Так?

← →
MBo © (2011-06-30 21:03) [4]

Почти.
TForm1. не нужно

← →
АлександрАл (2011-07-01 09:23) [5]

Спасибо. Все получилось.

вчера пост, видимо, не отослался, но ссылка очень полезная:
http://www.delphikingdom.ru/asp/viewitem.asp?catalogid=342

← →
АлександрАл (2011-07-01 11:00) [7]

Ага, буду изучать, спасибо еще раз.

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