Показать сообщение отдельно

  #9  
Старый 13.03.2010, 19:38
GhostOnline
Участник форума
Регистрация: 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;
 
Ответить с цитированием