| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Объект из процедурной ссылки [D5, D6, D7]
BasilAKANaiL © (2006-11-20 12:49:00)Доброе время суток, г-да. девелоперы.
Возникла такая проблема:
Я хочу сделать контролируемую делегацию событий. Объясню кратким примером.
//--------------------------------------------------------------------------------------------------
unit UnSession
...
type
TEventSession = function (aPack:TPackUnit):boolean of object;
IDelegator=interface (IInterface)
['GUID']
...
procedure SetDelegate(const aName:string;Value:TEventSession);
end;
TSession=class(TInterfacedObject, IDelegator)
...
procedure SetDelegate(const aName:string;Value:TEventSession);
end;
implementation
procedure SetDelegate(const aName:string;Value:TEventSession);
begin
// из значения Value:TEventSession нужно выяснить от какого объекта этот делегат
end;
//-------------------------------------------------------------------------------------------------
Можно добавить еще параметр со ссылкой на объект, но я думаю это будет излишний код.
BasilAKANaiL (2006-11-20 13:25:00) [1]Респект Уважаемый. Работает как надо.
icWasya (2006-11-20 12:53:00) [2]Object:=TObject(TMethod(Value).Data);
| |
