Синтаксис ссылки на событие
|
|
Я хочу проверить значение события, чтобы убедиться, что оно указывает в настоящий момент на определенную функцию. По всей видимости вам придется использовать две временные переменные. Попытайтесь сделать следующее: var ClickMethod: TNotifyEvent; B1Click: TNotifyEvent; ... ClickMethod := Button1.OnClick; B1Click := Button1Click; if @ClickMethod = @B1Click then messagebeep(0); |