How to check if two events are pointing to the same procedure in Delphi?

by

A method reference can be broken down in to two parts, the pointer to the object and the pointer to the method itself. There is a convenient record type defined in the System unit called TMethod that allows us to do that break down.

With that knowledge, we can write something like this:

function SameMethod(AMethod1, AMethod2: TNotifyEvent): boolean;
begin
  result := (TMethod(AMethod1).Code = TMethod(AMethod2).Code) 
            and (TMethod(AMethod1).Data = TMethod(AMethod2).Data);   
end;

Hope this helps. 🙂

Edit: Just to lay out in a better format the problem I am trying to solve here (as alluded to in the comments).

If you have two forms, both instantiated from the same base class:

Form1 := TMyForm.Create(nil);
Form2 := TMyForm.Create(nil);

and you assign the same method from those forms to the two buttons:

Button1.OnClick := Form1.ButtonClick;
Button2.OnClick := Form2.ButtonClick;

And compare the two OnClick properties, you will find that the Code is the same, but the Data is different. That is because it’s the same method, but on two different instantiations of the class…

Now, if you had two methods on the same object:

Form1 := TMyForm.Create(nil);

Button1.OnClick := Form1.ButtonClick1;
Button2.OnClick := Form1.ButtonClick2;

Then their Data will be the same, but their Code will be different.

More Related Contents:

  1. Delphi – moving overlapping TShapes
  2. Delphi event handling, how to create own event
  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 should I prepare my 32-bit Delphi programs for an eventual 64-bit compiler? [duplicate]
  8. How to access private methods without helpers?
  9. ORM for DELPHI win32
  10. Which logging library is better? [closed]
  11. Rotate bitmap by real angle
  12. What Can I Do To Reduce My Executable’s Size (Delphi)?
  13. How to associate a program with a file type, but only for the current user?
  14. How to implement multiple inheritance in delphi?
  15. How to split string by a multi-character delimiter?
  16. TLabel and TGroupbox Captions Flicker on Resize
  17. Delphi: How to hide ancestor constructors?
  18. Step by step upgrade of Indy 10 in Delphi 2009
  19. How to get the Memory Used by a Delphi Program
  20. Delphi: idHttp+SSL
  21. How do I draw the selected list-box item in a different color?
  22. TThread.resume is deprecated in Delphi-2010 what should be used in place?
  23. Plugins system for Delphi application – bpl vs dll?
  24. XPath and TXmlDocument
  25. Delphi, How to get all local IPs?
  26. How to get a stack trace from FastMM
  27. Firemonkey Grid Control – Styling a Cell based on a value (via the OnGetValue function call)
  28. Free Encryption library for Delphi [closed]
  29. Why are Delphi objects assigned even after calling .Free?
  30. GetThreadLocale returns different value than GetUserDefaultLCID?

Leave a Comment