Accessing protected event of TWinControl

Question

imagine, you want to assign your own event procedure:

procedure TSuperObject.DoSomething(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: In         


        

Answer 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.