Achso, das ist nur eine automatisch generierte OCX.
Dachte schon, da wäre mehr Code dahinter.
Delphi-Quellcode:
// statt dem
TControlData2(CControlData).FirstEventOfs := Cardinal(@@FOnActivate) - Cardinal(Self);
// kann man notfalls auch Folgendes verwenden
TControlData2(CControlData).FirstEventOfs := Cardinal(@TMethod(FOnActivate).Code) - Cardinal(Self);
(für Win64 ist dieses Cardinal aber natürlich nicht nutzbar ... also besser sowas wie NativeUInt verwenden, wenn verfügbar)