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