Как изменить курсор перетаскивания и поведение копирования/перемещения в VirtualTreeView на Delphi

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

Когда вы работаете с компонентом VirtualTreeView в Delphi и выполняете операцию перетаскивания, по умолчанию используется режим копирования (doCopy) или перемещения (doMove). Стандартный курсор для перемещения представляет собой стрелку с небольшим квадратом, а для копирования — такую же стрелку, но с добавленным значком "+". По умолчанию VirtualTreeView использует режим копирования, и если нажать модификаторную клавишу SHIFT, режим переключается на перемещение, исчезая значок "+".

В данном руководстве мы рассмотрим, как изменить стандартное поведение так, чтобы по умолчанию использовался режим перемещения, а при нажатии клавиши CTRL — режим копирования. Также мы рассмотрим, как определить в событии, какая операция была выполнена, и начать соответствующую операцию копирования или перемещения.

Изменение курсора перетаскивания и поведения

Для изменения поведения операций перетаскивания и курсора, используемого при перетаскивании, необходимо изменить обработчик события OnDragOver. В этом событии можно установить желаемое действие, которое будет использоваться при перетаскивании, и это же значение можно передать в Effect. Кроме того, установка значения Effect влияет на отображение курсора перетаскивания.

procedure TForm1.VirtualStringTree1DragOver(Sender: TBaseVirtualTree;
  Source: TObject; Shift: TShiftState; State: TDragState; Pt: TPoint;
  Mode: TDropMode; var Effect: Integer; var Accept: Boolean);
begin
  Accept := True;
  if Shift.Contains(ssCtrl) then
    Effect := DROPEFFECT_COPY
  else
    Effect := DROPEFFECT_MOVE;
end;

В примере выше, если во время перетаскивания удерживается клавиша CTRL, устанавливается режим копирования, а если нет — режим перемещения.

Определение операции копирования/перемещения

После выполнения операции перетаскивания и вызова OnDragDrop, можно проверить переменную Effect, чтобы определить, какая операция была выполнена, и запустить соответствующую функциональность копирования или перемещения.

procedure TForm1.VirtualStringTree1DragDrop(Sender: TBaseVirtualTree;
  Source: TObject; DataObject: IDataObject; Formats: TFormatArray;
  Shift: TShiftState; Pt: TPoint; var Effect: Integer; Mode: TDropMode);
begin
  case Effect of
    DROPEFFECT_COPY: ShowMessage('Операция копирования');
    DROPEFFECT_MOVE: ShowMessage('Операция перемещения');
  end;
end;

Заключение

Изменение курсора перетаскивания и поведения копирования/перемещения в VirtualTreeView на Delphi позволяет пользователю более точно и удобно управлять операциями при работе с компонентом. Приведенные примеры кода показывают, как это можно реализовать, изменяя обработчики событий OnDragOver и OnDragDrop.

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

в одном предложении Описание процесса изменения курсора и поведения копирования/перемещения элементов в компоненте VirtualTreeView в среде разработки Delphi.

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

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

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