Имеется возможность получить значение указателя на обработчик события,
который вы можете сравнить по адресу с другими методами, чтобы вычислить тот,
которому передается данное событие:
procedure TForm1.Button3Click(Sender: TObject);
var
P: recordcase 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;
Если Вас заинтересовала или понравилась информация по разработке на Delph - "Получение имени обработчика события", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу: Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!