Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

АлександрАл © (2011-06-30 19:59:00)
Есть код в модуле 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
Или как? Напишите пожалуйста пример.

АлександрАл (2011-07-01 11:00:00) [1]
Ага, буду изучать, спасибо еще раз.

MBo (2011-07-01 09:27:00) [2]
вчера пост, видимо, не отослался, но ссылка очень полезная:
http://www.delphikingdom.ru/asp/viewitem.asp?catalogid=342

АлександрАл (2011-07-01 09:23:00) [3]
Спасибо. Все получилось.

MBo (2011-06-30 21:03:00) [4]
Почти.
TForm1. не нужно

АлександрАл (2011-06-30 20:14:00) [5]
А не в общем?
Т.е. я пишу там где у меня описание всех событий TForm1,

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

MD5.on_MD5_Progress := TForm1.MD5Event

Так?

MBo (2011-06-30 20:05:00) [6]
>Создать в модуле формы процедуру procedure MD5Event (pos,siz:Integer);
В общем - да, написать метод объекта с такой сигнатурой

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

Ega23 (2011-06-30 20:04:00) [7]
есть процедура, а есть метод.
Либо убрать of object, либо назначать метод.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »