Drag and Drop несколько элементов в TListView

Delphi , Синтаксис , Drag and Drop

{ ListView1.DragMode := dmAutomatic } 

procedure TForm1.ListView1DragDrop(Sender, Source: TObject; X, Y: Integer); 
var 
  DragItem, DropItem, CurrentItem, NextItem: TListItem; 
begin 
  if Sender = Source then 
    with TListView(Sender) do 
    begin 
      DropItem    := GetItemAt(X, Y); 
      CurrentItem := Selected; 
      while CurrentItem <> nil do 
      begin 
        NextItem := GetNextItem(CurrentItem, SdAll, [IsSelected]); 
        if DropItem = nil then DragItem := Items.Add 
        else 
          DragItem := Items.Insert(DropItem.Index); 
        DragItem.Assign(CurrentItem); 
        CurrentItem.Free; 
        CurrentItem := NextItem; 
      end; 
    end; 
end; 

procedure TForm1.ListView1DragOver(Sender, Source: TObject; X, Y: Integer; 
  State: TDragState; 
  var Accept: Boolean); 
begin 
  Accept := Sender = ListView1; 
end;

Перевод контента на русский язык:

Код-snippet на Delphi, предназначенный для обработки операций drag-and-drop в контроле TListView. Вот подробное описание кода:

Режим Drag В первой строке устанавливается свойство DragMode для ListView1 в значение dmAutomatic, что позволяет пользователю инициировать операцию drag, кликнув и перетаскивая элемент.

Обработчик события DragDrop Обработчик события ListView1DragDrop вызывается, когда пользователь опускает один или несколько элементов на список. Процедура принимает четыре параметра: Sender, Source, X и Y. Эти параметры представляют источник операции drag, координаты, где произошло падение, и элемент, который был опущен (или nil, если не было опущено никаких элементов).

Обработчик события проверяет, является ли отправителем тот же, что и источник. Если это так, он находит элемент, который был опущен (DropItem), и текущие выбранные элементы в списке (CurrentItem). Затем он проходит по выбранным элементам, вставляя каждый после элемента падения с помощью метода Insert свойства Items.

Обработчик события DragOver Обработчик события ListView1DragOver вызывается, когда пользователь перетаскивает элемент над списком. Процедура принимает пять параметров: Sender, Source, X, Y и State. Эти параметры представляют источник операции drag, координаты, где находится курсор мыши, состояние операции drag (например, является ли это перетаскиванием или падением), и булев переменную, указывающую, принимает ли список падение.

Обработчик события просто устанавливает значение Accept в true, если отправитель тот же, что и список (ListView1). Это сообщает Delphi отображать курсор падения, указывая, что элемент может быть опущен на список.

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

Предложения по улучшению 1. Обработка ошибок: код предполагает, что метод GetItemAt всегда возвращает валидный элемент. Рекомендуется добавить проверку на ошибки для обработки случаев, когда этот метод возвращает nil. 2. Оптимизация производительности: если вы работаете с большим количеством элементов в списке, вставка каждого элемента индивидуально может быть медленной. Вам может потребоваться более эффективный подход, например, вставка нескольких элементов одновременно или использование метода Items.AddRange. 3. Организация кода: процедура ListView1DragDrop слишком длинная и выполняет несколько не связанных задач (нахождение элемента падения, проход по выбранным элементам, вставка их). Рекомендуется разбить эту процедуру на более маленькие, фокусированные процедуры для улучшения читаемости и поддержки кода.

Dragging several items to a TListView can be achieved by setting the DragMode property to dmAutomatic and implementing the DragOver and DragDrop events.

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

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

:: Главная :: Drag and Drop ::