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

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

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;

« Предыдущая статья		Следующая статья »