Скачать: CL | DM;

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

← →
АлександрАл   (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]

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

---

← →
MBo ©   (2011-07-01 09:27) [6]

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

---

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.003 c