Accessing protected event of TWinControl

by

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.

More Related Contents:

  1. Why do I get “type has no typeinfo” error with an enum type
  2. delphi xe disable RTTI
  3. Select Directory error … delphi 7 [closed]
  4. How to pass pointer to array of byte to function?
  5. How can I search for Delphi documentation? [closed]
  6. How can I tell if another instance of my program is already running?
  7. How can I allow a form to accept file dropping without handling Windows messages?
  8. How should I prepare my 32-bit Delphi programs for an eventual 64-bit compiler? [duplicate]
  9. How to access private methods without helpers?
  10. ORM for DELPHI win32
  11. Which logging library is better? [closed]
  12. Rotate bitmap by real angle
  13. What Can I Do To Reduce My Executable’s Size (Delphi)?
  14. How to associate a program with a file type, but only for the current user?
  15. How to implement multiple inheritance in delphi?
  16. Is there a way to instantiate a class by its name in delphi?
  17. How to split string by a multi-character delimiter?
  18. How to add manifest info into delphi project
  19. Could not find system file when it actually exists
  20. Delphi: idHttp+SSL
  21. How do I draw the selected list-box item in a different color?
  22. Selecting a directory with TOpenDialog
  23. Standard URL encode function?
  24. Form is hidden behind other forms when ShowModal is called
  25. Initialise string function result?
  26. How to simulate bit-fields in Delphi records?
  27. TProgressBar never fills up all the way – seems to be updating too fast? [duplicate]
  28. Randomize StringList
  29. Http Post with indy
  30. What are major incentives to upgrade to D2009 (Unicode excluded)?

Leave a Comment