Форум: "Прочее";
Текущий архив: 2009.03.29;
Скачать: [xml.tar.bz2];
ВнизИнтерфейсы и события... Найти похожие ветки
← →
Knight © (2009-01-30 08:49) [0]Можно ли реализовать сабж?
Делаю так. Где "косяк"?type
IFoo=interface
TonSomeEvent=procedure(Foo:IFoo; X,Y:Byte);
IFoo=interface
function GetOnFoo:IFoo;
procedure SetOnFoo(const Value:IFoo);
property onFoo:TonSomeEvent read GetOnFoo write SetOnFool;
end;
---
TFoo=class(TInterfacedObject,IFoo)
.....
end;
---
TSomeClass=class()
FFoo:IFoo;
...
procedure onSomeEvent(Foo:IFoo; X,Y:Byte);
property Foo:IFoo read FFoo write SetFoo;
---
procedure TSomeClass.SetFoo(const Value:IFoo)
FFoo=Value;
FFoo.onSomeEvent=onSomeEvent;
< [Pascal Error] SomeUnit.pas(49): E2009 Incompatible types: "regular procedure and method pointer"
end;
← →
{RASkov} © (2009-01-30 09:03) [1]> TonSomeEvent=procedure(Foo:IFoo; X,Y:Byte);
TonSomeEvent=procedure(Foo:IFoo; X,Y:Byte) of Object;
?
← →
Knight © (2009-01-30 09:07) [2]
> [1] {RASkov} © (30.01.09 09:03)
ТОЧНО!!! Забыл :))))
Спасибо. Вопрос исчерпан %)
Страницы: 1 вся ветка
Форум: "Прочее";
Текущий архив: 2009.03.29;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.062 c