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



Автор: Kurt

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

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


var
ClickMethod: TNotifyEvent;
B1Click: TNotifyEvent;
...
ClickMethod := Button1.OnClick;
B1Click := Button1Click;
if @ClickMethod = @B1Click then
messagebeep(0);


Далее: Создание редактора свойства »»