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