Получение имени обработчика события
Имеется возможность получить значение указателя на обработчик события,
который вы можете сравнить по адресу с другими методами, чтобы вычислить тот,
которому передается данное событие:
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;
|
|
|
|
|
автомобильные перевозки . Весы для взвешивания огнетушителей. Устройство парашковых огнетушителей. . продажа грузовых автомобилей в москве . Отели Египта: Туры на Мальдивские Острова. Купите горящий тур по низкой цене. . |
