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

Объект из процедурной ссылки   Найти похожие ветки 

← →
BasilAKANaiL ©   (2006-11-20 12:49) [0]

Доброе время суток, г-да. девелоперы.
Возникла такая проблема:
Я хочу сделать контролируемую делегацию событий. Объясню кратким примером.

//--------------------------------------------------------------------------------------------------
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;

//-------------------------------------------------------------------------------------------------

Можно добавить еще параметр со ссылкой на объект, но я думаю это будет излишний код.

---

← →
icWasya ©   (2006-11-20 12:53) [1]

Object:=TObject(TMethod(Value).Data);

---

← →
BasilAKANaiL ©   (2006-11-20 13:25) [2]

Респект Уважаемый. Работает как надо.

---

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

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



Память: 0.45 MB
Время: 0.046 c