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

Автор: Kurt

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

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

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

Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 1 690 • TDictionary Custom Sort 4 277 • Fast Watermark Sources 3 945 • 3D Designer 6 110 • Sik Screen Capture 4 209 • Patch Maker 4 756 • Айболит (remote control) 4 670 • ListBox Drag & Drop 3 810 • Доска для игры Реверси 90 580 • Графические эффекты 5 005 • Рисование по маске 4 035 • Перетаскивание изображений 3 375 • Canvas Drawing 3 690 • Рисование Луны 3 480 • Поворот изображения 3 010 • Рисование стержней 2 632 • Paint on Shape 2 025 • Генератор кроссвордов 2 792 • Головоломка Paletto 2 214 • Теорема Монжа об окружностях 2 913 • Пазл Numbrix 1 973 • Заборы и коммивояжеры 2 571 • Игра HIP 1 592 • Игра Go (Го) 1 521 • Симулятор лифта 1 801 • Программа укладки плитки 1 546 • Генератор лабиринта 1 915 • Проверка числового ввода 1 674 • HEX View 1 855 • Физический маятник 1 687