Советы по 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; |
[000695]
