Интерфейсный метод как обработчик событий

Question

Можно ли использовать метод интерфейса в качестве обработчиков событий в Delphi 2007? Простые версии не работают:

type 
    TMyEvent = procedure of object; 

    IMyInterface = interface 
    procedure Handler; 
    end; 

    TMyClass = class(TInterfacedObject, IMyInterface) 
    public 
    procedure Handler; 
    end; 

var 
    ev: TMyEvent; 
    obj: TMyClass; 
    intf: IMyInterface; 
begin 
    obj := TMyClass.Create; 
    intf := obj; 
    ev := obj.Handler; // compiles 
    ev := intf.Handler; // <== Error E2010 (incompatible types) 
end. 

Добавление @ или Addr изменяет ошибку в E2036 (переменная требуется).

Update: Это

procedure IntRefToMethPtr(const IntRef; var MethPtr; MethNo: Integer); 
type 
    TVtable = array[0..999] of Pointer; 
    PVtable = ^TVtable; 
    PPVtable = ^PVtable; 
begin 
    //QI=0, AddRef=1, Release=2, etc 
    TMethod(MethPtr).Code := PPVtable(IntRef)^^[MethNo]; 
    TMethod(MethPtr).Data := Pointer(IntRef); 
end; 

var 
    ev: TMyEvent; 
    intf: IMyInterface; 
begin 
    intf := TMyClass.Create; 
    IntRefToMethPtr(intf, ev, 3); 
    ev; 
end. 

работы. Однако я не слишком люблю магию 3.

Answer 1

Более чистым решением является реализация IInterfaceComponentReference или что-то подобное для вашего базового класса и использует это для получения класса ref.

Вышеупомянутый код не будет работать, например. FPC и другие совместимые устройства. Их структура VMT несколько отличается. И даже на Delphi дальнейшее расширение языка может вызвать это.

Идеальное решение состоит в том, чтобы иметь совершенно отдельный «метод» метода methodVar для этого, но мне интересно, стоит ли этого проблемы.