Получение имени обработчика события

Delphi , Компоненты и Классы , Свойства и События

Имеется возможность получить значение указателя на обработчик события, который вы можете сравнить по адресу с другими методами, чтобы вычислить тот, которому передается данное событие:

procedure TForm1.Button3Click(Sender: TObject);
var
  P: record case Integer of
      1: (E: TNotifyEvent);
      2: (P: Pointer);
  end;
begin
  P.E := Button1.OnClick;
  Panel1.Caption := 'Обработчик события = ' + MethodName(P.P);
  ShowMessage(Format('%p', [P.P]));
end;

Статья Получение имени обработчика события раздела Компоненты и Классы Свойства и События может быть полезна для разработчиков на Delphi и FreePascal.

Комментарии и вопросы

:: Главная :: Свойства и События ::