|
Имеется возможность получить значение указателя на обработчик события,
который вы можете сравнить по адресу с другими методами, чтобы вычислить тот,
которому передается данное событие:
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;
|
|
Получение имени обработчика события