Советы по Delphi



         

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


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

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

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

Kurt [000788]




Содержание  Назад