Остановка рекурсивного удаления узлов в TTreeView после нажатия Delete

Delphi , Компоненты и Классы , TTreeView

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

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

Рассмотрим пример кода, который приводит к описанной проблеме:

procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
var
  m: TMenuItem;
begin
  // Очистка меню
  Node1.Clear;
  // Создание пункта меню с клавишей-сочетанием Delete
  m := TMenuItem.Create(Self);
  m.Caption := 'Удалить';
  m.ShortCut := VK_DELETE;
  m.OnClick := AcDelete;
  Node1.Add(m);
end;

procedure TForm1.AcDelete(Sender: TObject);
begin
  // Проверка на наличие выбранного узла
  if not Assigned(TreeView1.Selected) then Exit;
  // Удаление выбранного узла
  TreeView1.Selected.Delete;
end;

При выборе узла в TTreeView вызывается обработчик TreeView1Change, который создает динамическое меню с пунктом удаления, имеющим клавишу-сочетание Delete. При нажатии этой клавиши удаляется выбранный узел, и после этого, из-за вызова TreeView1Change, происходит создание нового меню для следующего узла, который автоматически становится выбранным. В результате, клавиша Delete продолжает нажиматься рекурсивно, пока не будут удалены все узлы.

Подтвержденный ответ

Чтобы решить проблему, необходимо изменить подход к созданию динамического меню. Вместо создания нового пункта меню с каждой сменой выбранного узла, следует использовать объекты TAction и TActionList. Это позволит управлять видимостью и доступностью пунктов меню, не создавая их заново каждый раз при изменении состояния TTreeView.

Альтернативный ответ

В качестве альтернативного решения можно использовать следующий подход:

procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
begin
  // Очистка меню от действий, не относящихся к текущему узлу
  DeleteAction.Visible := Node.SupportsDeletion; // Предполагаем, что узел имеет свойство SupportsDeletion
end;

procedure TForm1.AcDelete(Sender: TObject);
begin
  if not Assigned(TreeView1.Selected) then Exit;
  TreeView1.Selected.Delete;
end;

Создаем один объект TAction с клавишей-сочетанием Delete, и привязываем его к пункту меню. Это позволяет избежать создания новых пунктов меню с клавишей-сочетанием в реальном времени и управлять видимостью этого пункта меню, основываясь на свойствах узла.

var
  DeleteAction: TAction;
begin
  DeleteAction := TAction.Create(Self);
  DeleteAction.Caption := 'Удалить';
  DeleteAction.ShortCut := VK_DELETE;
  DeleteAction.OnExecute := AcDelete;
  // Предполагаем, что у вас есть TActionList, в который вы добавите DeleteAction
end;

При создании нового пункта меню привязываем к нему созданное действие вместо обработчика событий:

m.Action := DeleteAction;

Используем обработчик события OnUpdate объекта TAction для динамического управления видимостью пункта меню на основе свойств узла:

procedure TForm1.UpdateDeleteAction(Sender: TObject);
begin
  DeleteAction.Visible := TreeView1.Selected <> nil and TreeView1.Selected.SupportsDeletion;
end;

Добавляем обработчик обновления состояния для TAction:

DeleteAction.OnUpdate := UpdateDeleteAction;

Таким образом, после каждого изменения состояния TTreeView, состояние пункта меню "Удалить" будет пересчитываться, и если узел не поддерживает удаление или не выбран, то пункт меню будет скрыт, и клавиша Delete не будет активировать рекурсивное удаление.

Заключение

Использование TAction и TActionList позволяет гибко управлять пунктами меню и их доступностью, а также избежать проблем, связанных с динамическим созданием пунктов меню с одинаковыми клавишами-сочетаниями, что предотвращает рекурсивное удаление узлов в TTreeView.

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

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

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

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

:: Главная :: TTreeView ::