Решение проблемы назначения и удаления обработчика событий в Delphi без дополнительных переменных

Delphi , Компоненты и Классы , Свойства и События

Решение проблемы назначения и удаления обработчика событий в Delphi

Работа с обработчиками событий в Delphi может быть неочевидной, особенно когда речь идет о назначении и удалении этих обработчиков в конструкторе и деструкторе объектов соответственно. Вопрос пользователя заключается в том, как правильно тестировать назначение обработчика событий в конструкторе, если он еще не назначен, и его удаление в деструкторе, без использования дополнительных переменных для хранения информации о назначении.

Описание проблемы

Вопрос заключается в том, как корректно назначить обработчик событий в конструкторе объекта, если он еще не назначен, и затем удалить этот обработчик в деструкторе. Пользователь предоставил пример кода, который не компилируется:

constructor TSomeControl.Create(Panel: TPanel);
begin
  inherited Create;
  FPanel := Panel;
  if not Assigned(FPanel.OnResize) then
    FPanel.OnResize := HandlePanelResize;
end;

destructor TSomeControl.Destroy;
begin
  if @FPanel.OnResize = @HandlePanelResize then // Ошибка компиляции E2036
    FPanel.OnResize := nil;
  FPanel := nil;
  inherited;
end;

Решение проблемы

В комментариях к вопросу предложено несколько решений. Одним из них является использование типа TMethod из модуля System, который позволяет сравнивать обработчики событий:

destructor TSomeControl.Destroy;
var
  Event: TNotifyEvent;
begin
  Event := HandlePanelResize;
  if TMethod(FPanel.OnResize).Code = Addr(Event) then
    FPanel.OnResize := nil;
  FPanel := nil;
  inherited;
end;

Другой вариант предлагает использовать TEqualityComparer из модуля Generics.Defaults для сравнения обработчиков событий:

destructor TSomeControl.Destroy;
begin
  if Assigned(FPanel) and TEqualityComparer<TNotifyEvent>.Default.Equals(
    FPanel.OnResize, HandlePanelResize) then
    FPanel.OnResize := nil;
  FPanel := nil;
  inherited;
end;

Оба этих подхода позволяют избежать использования дополнительных переменных для хранения информации о назначении обработчика.

Заключение

В данной статье было рассмотрено, как можно назначить и удалить обработчик событий в Delphi без использования дополнительных переменных. Представленные решения используют встроенные средства Delphi для сравнения обработчиков событий, что позволяет решить поставленную задачу.

Применение этих знаний в реальных проектах на Delphi может существенно упростить работу с обработчиками событий, делая код более чистым и эффективным.

Создано по материалам из источника по ссылке.

Вопрос касается корректного назначения и удаления обработчиков событий в Delphi, без использования дополнительных переменных для хранения информации о назначенных событиях.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Свойства и События ::