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



Содержание раздела