Jak ustawić obsługę zdarzeń z dowolnym typem za pomocą RTTI w Delphi 2010?

po przeczytaniu postuJak ustawić obsługę zdarzeń za pomocą nowego RTTI?, Zastanawiam się, czy można rozwiązać to bardziej dynamicznie. Na przykład chcę ustawić WSZYSTKIE moduły obsługi zdarzeń dowolnego komponentu na zero.

Za pomocąTValue.From <TNotifyEvent> (SomeMethod) nie działa z dwóch powodów: 1. Typ jest nieznany (może to być TNotifyEvent, TMouseEvent itp.) 2. Nie mogę ustawić „SomeMethod” na zero (nieprawidłowy rzut)

W starym stylu RTTI zrobiłbym coś takiego:

var
  NilMethod: TMethod;
begin
[...]
NilMethod.Data := nil;
NilMethod.Code := nil;
SetMethodProp (AComponent,PropertyName,NilMethod);

questionAnswers(1)

yourAnswerToTheQuestion