小编jro*_*ovs的帖子

对于这项任务，我有一个不太好的解决方案，但有人可以告诉我如何使用标准库或更优雅的方法。当前的解决方案是基于这样一个事实，即对对象过程的引用在内存中存储了两个指针，一个指向过程代码的指针和一个指向对象的指针。

function IsObject( const AEvent: TNotifyEvent; const AObject: TObject ): Boolean;
begin
  Result := PointerArray( Pointer( @AEvent )^ )[1] = Pointer( AObject );
end;