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