Accessing protected event of TWinControl
Solution 1:
You don't need RTTI.
Any code has implicit access to the protected members of any class declared in the same unit. You can take advantage of this by declaring a new TWinControl
descendant in the unit that needs access to that class's members. The declaration is very simple:
type
TProtectedWinControl = class(TWinControl);
Then type-cast any other TWinControl
descendant to that new type, and you'll have access to any of its protected fields, properties, and methods. Protected members of TWinControl
are automatically protected members of TProtectedWinControl
(through inheritance), so the current unit has access to them.
TProtectedWinControl(AnyWinControl).OnMouseDown := SuperObject1.DoSomething;
Note that this applies to protected members, but not strict protected members.