Решение проблемы перетаскивания в TVirtualStringTree

Delphi , Синтаксис , Деревья

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

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

У вас есть TVirtualStringTree с опцией toFullRowSelect, и вы хотите включить перетаскивание узлов. При нажатии на заголовок узла перетаскивание начинается правильно, но при нажатии на любую другую область выделенной строки перетаскивание не запускается, и событие OnDragAllowed не срабатывает.

Минимальный воспроизводимый пример (MCVE)

Создайте форму с компонентом TVirtualStringTree (назовем его VST) и добавьте обработчики событий OnCreate и OnDragAllowed для VST:

procedure TForm1.FormCreate(Sender: TObject);
begin
  VST.TreeOptions.SelectionOptions := VST.TreeOptions.SelectionOptions + [toFullRowSelect];
  VST.RootNodeCount := 5;
end;

procedure TForm1.VSTDragAllowed(Sender: TBaseVirtualTree;
  Node: PVirtualNode; Column: TColumnIndex; var Allowed: Boolean);
begin
  Allowed := True;
end;

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

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

Чтобы решить эту проблему, добавьте опцию toFullRowDrag в набор опций MiscOptions:

procedure TForm1.FormCreate(Sender: TObject);
begin
  VST.TreeOptions.SelectionOptions := VST.TreeOptions.SelectionOptions + [toFullRowSelect];
  VST.TreeOptions.MiscOptions := VST.TreeOptions.MiscOptions + [toFullRowDrag];
  VST.RootNodeCount := 5;
end;

Опция toFullRowDrag описана в исходном коде как:

Начать перетаскивание узла при нажатии на любую область внутри него, а не только на заголовок или изображение. Должна использоваться вместе с опцией toDisableDrawSelection.

С этой опцией, при нажатии на любую область выделенной строки, перетаскивание узла будет запущено, и событие OnDragAllowed сработает.

Заключение

В данной статье мы рассмотрели проблему перетаскивания в TVirtualStringTree и предложили решение, добавив опцию toFullRowDrag в набор опций MiscOptions. Это позволяет начать перетаскивание узла при нажатии на любую область внутри него, а не только на заголовок или изображение.

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

Статья описывает решение проблемы перетаскивания узлов в TVirtualStringTree в Delphi, когда перетаскивание не работает при нажатии на любую область выделенной строки, кроме заголовка узла. Для решения проблемы необходимо добавить опцию toFullRowDrag в наб

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

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

:: Главная :: Деревья ::