Советы по Delphi


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


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

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

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

Kurt [000788]




Начало  Назад  



Книжный магазин