Советы по Delphi
Получение имени обработчика события
Имеется возможность получить значение указателя на обработчик события, который вы можете сравнить по адресу с другими методами, чтобы вычислить тот, которому передается данное событие:
| procedure TForm1.Button3Click(Sender: TObject);varP: record case Integer of1: (E: TNotifyEvent);2: (P: Pointer);end;beginP.E := Button1.OnClick;Panel1.Caption := 'Обработчик события = '+ MethodName(P.P);ShowMessage(Format('%p', [P.P]));end; |
[000695]
