Ошибки при Удалении Компонентов Delphi: Примеры и Решения

Delphi , ОС и Железо , Windows

Вопрос, который вы задали, связан с правильным удалением компонентов в Delphi. В частности, вы столкнулись с ошибкой доступа при попытке удаления панели, на которой размещён компонент TBitBtn. Эта ошибка возникает из-за неправильного порядка удаления компонентов: сначала должны удаляться дочерние компоненты, а уже затем их родительский контейнер.

Проблема

Вы создаёте пользовательскую панель TPanel с различными пользовательскими компонентами внутри, включая TBitBtn, который имеет обработчик события OnClick. При нажатии на кнопку вы пытаетесь удалить панель, но это приводит к ошибке доступа, так как дочерние компоненты ещё не удалены.

Описание кода

Код, который вы используете для создания панели и кнопки, выглядит следующим образом:

procedure Panel_Comp(Location: TWinControl; ...);
begin
  MyPanel := TPanel.Create(Conf);
  MyPanel.Name := 'MyPanel' + IntToStr(NumOfComp);
  MyPanel.Parent := Location;
  // ... другие настройки панели ...
end;

procedure BitBtn_Comp(Location: TWinControl; ...);
begin
  MyBitBtn := TBitBtn.Create(Conf);
  // ... настройки кнопки ...
  MyBitBtn.OnClick := Conf.CloseCurrentPanel;
  MyBitBtn.Tag := NumOfComp;
  MyBitBtn.Parent := Location;
end;

procedure TConf.CloseCurrentPanel(Sender: TObject);
var
  panelComp: TComponent;
begin
  panelComp := FindComponentEx('Conf.MyPanel' + IntToStr(TBitBtn(Sender).Tag));
  TPanel(panelComp).Free;
  Application.ProcessMessages;
end;

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

Чтобы решить проблему, необходимо сначала удалить все дочерние компоненты панели, а уже потом саму панель. Для этого можно использовать пользовательское сообщение для отложенного удаления компонента:

const
  UM_DESTROYPANEL = WM_APP + 623; // уникальный номер для пользовательского сообщения

procedure TConf.CloseCurrentPanel(Sender: TObject);
var
  panelComp: TComponent;
begin
  panelComp := FindComponentEx('Conf.MyPanel' + IntToStr(TBitBtn(Sender).Tag));
  PostMessage(Handle, UM_DESTROYPANEL, WPARAM(panelComp), 0);
end;

procedure TConf.UMDestroyPanel(var Message: TMessage);
begin
  TComponent(Message.WParam).Free;
end;

Также важно убедиться, что функция FindComponentEx правильно находит компонент:

function FindComponentEx(const Name: string): TComponent;
begin
  // ... код функции ...
  if Found then
  begin
    for I := 0 to Form.ComponentCount - 1 do
    begin
      Result := Form.Components[I];
      if Assigned(Result) and AnsiSameText(Result.Name, CompName) then
      begin
        if (Result is TPanel) then
          Exit; // Нашли панель, теперь проверяем её содержимое
        // Перед удалением панели, удалите все её дочерние компоненты
        for var Component in Result.Components do
          Component.Free;
      end;
    end;
  end;
  Result := nil;
end;

Альтернативное решение

В качестве альтернативы, вы можете использовать список для хранения ссылок на все созданные панели и удалять их по этому списку:

type
  TPanelList = TList<TComponent>;

procedure Panel_Comp(...);
begin
  // ...
  Panels.Add(MyPanel);
end;

procedure TConf.FormDestroy(Sender: TObject);
var
  Panel: TComponent;
begin
  for Panel in Panels do
    Panel.Free;
  Panels.Clear;
end;

Этот подход позволяет избежать ошибок при удалении, так как вы контролируете процесс удаления всех компонентов.

Заключение

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

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

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

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

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

:: Главная :: Windows ::