@ operator ? Or maybe not

Suppose

type
myClass = class
button : Tbutton;
procedure method1(Sender: TObject);
procedure method2(Sender: TObject);
end;

And somewhere I've assigned
myClass.button.OnClick:=myClass.method1;

How can I now verify if the OnClick is assigned to method1 or method2 ?
I'd like to do
button.enabled:=(@button.Onclick = @method1);

But that isn't valid...

Kind regards,
Tom


.

Quantcast