Хотите раскрутить свой сайт в Яндекс и Google?
Недорогое и качественное продвижение сайта от 50$

Delphi 1

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

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

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

var

ClickMethod: TNotifyEvent;

B1Click: TNotifyEvent;

...

ClickMethod := Button1.OnClick;

B1Click := Button1Click;

if @ClickMethod = @B1Click then messagebeep(0);

Kurt [000788]

Материалы, которые находятся на этой страничке, любезно предоставлены Игорем Ивановым

РЕКЛАМНЫЙ БЛОК