Синтаксис ссылки на событие

Written on 26 Октября 2007. Posted in [Delphi] Стандартные классы, VCL

Я хочу проверить значение события, чтобы убедиться, что оно указывает в настоящий момент на определенную функцию.

По всей видимости вам придется использовать две временные переменные. Попытайтесь сделать следующее:

var

ClickMethod: TNotifyEvent;

B1Click: TNotifyEvent;

...

ClickMethod := Button1.OnClick;

B1Click := Button1Click;

if @ClickMethod = @B1Click then messagebeep(0);