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




Содержание  Назад  Вперед