Как выделить узел в TreeView в приложении Delphi 11 на Windows 10

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

Вопрос, с которым сталкиваются разработчики, использующие компонент TreeView в Delphi 11 на Windows 10, заключается в необходимости программного выделения узла, на который был совершен правый клик, в обработчике события PopupMenu.OnPopup. Это может быть полезно, например, для отображения контекстного меню, связанного с конкретным узлом.

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

При использовании TreeView с одновременным отключением многоподборки (MultiSelect = False) и настройкой контекстного меню (PopupMenu = PopupMenu1), при правой кнопке мыши на узле происходит вызов контекстного меню. Однако, в обработчике события PopupMenu1.OnPopup требуется, чтобы именно выбранный узел был программно выделен, что не происходит автоматически.

Пример

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

Решение

Наиболее простым решением является использование события OnContextPopup компонента TreeView. В этом событии можно выделить узел, на который был совершен клик, следующим образом:

procedure TForm1.TreeView1ContextPopup(Sender: TObject; MousePos: TPoint;
  var Handled: Boolean);
begin
  var TreeNode := TreeView1.GetNodeAt(MousePos.X, MousePos.Y);
  if Assigned(TreeNode) then
    TreeNode.Selected := True;
end;

Однако, стоит отметить, что в некоторых случаях событие OnContextPopup может не срабатывать из-за особенностей приложения. В таком случае, можно использовать обработчик события OnMouseDown для программного выделения узла.

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

Если OnContextPopup не работает, можно попробовать установить выделение узла непосредственно в обработчике события OnMouseDown компонента TreeView. Это может потребоваться, если в приложении есть какие-либо блокировки для стандартного поведения.

procedure TForm1.TreeView1MouseDown(Sender: TObject; Button: TMouseButton;
  MousePos: TPoint; var Handled: Boolean);
begin
  var TreeNode := TreeView1.GetNodeAt(MousePos.X, MousePos.Y);
  if Assigned(TreeNode) then
    TreeNode.Selected := True;
    TreeView1.EnsureVisible(TreeNode);
end;

В этом коде EnsureVisible(TreeNode) используется для того, чтобы узел стал видимым, если он не находится в области видимости TreeView.

Заключение

Для программного выделения узла в контекстном меню компонента TreeView в Delphi 11 на Windows 10 можно использовать событие OnContextPopup или OnMouseDown, в зависимости от специфики приложения. Важно помнить, что в некоторых случаях может потребоваться дополнительная настройка или отладка, чтобы обеспечить корректное поведение компонента.

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

Вопрос связан с программным выделением узла в компоненте TreeView в приложении Delphi 11 на Windows 10 в процессе вызова контекстного меню.

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

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

:: Главная :: Меню ::