Delphi 1

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

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

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

var

ClickMethod: TNotifyEvent;

B1Click: TNotifyEvent;

...

ClickMethod := Button1.OnClick;

B1Click := Button1Click;

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

Kurt [000788]