
13.03.2010, 19:38
|
|
Участник форума
Регистрация: 20.12.2008
Сообщений: 277
Провел на форуме: 828081
Репутация:
84
|
|
Надо соответсвенно объявить процедурный тип и свойство-событие:
TMyClass = class
...........
private
FOnDenjf : TNotifyEvent;
............
public
property OnDenjf: TNotifyEvent read FOnDenjf write FOnDenjf;
end;
И после этого ты можешь присваивать этому свойству значения процедур.
Вместо TNotifyEvent ты можешь объявить свой процедурный тип:
type
TMyEvent = procedure of object({тут перечисление передаваемых аргументов по твоему усмотению});
end;
|
|
|