Типичная задача перетаскивания мышью объектов из одного контрола в другой
просто решается обработкой событий OnDragOver и OnDragDrop, при установленных
свойствах DragMode := dmAutomatic и DragKind := dkDrag у всех участвующих
компонентов.
Первый обработчик предназначен для принятия решения - допускается ли сбросить
объект в контрол, над которым находится мышь (параметр Sender), и выставить
соответствующий курсор. Для этого передается параметр Source:TObject,
представляющий собой тот компонент, с которого начали перетаскивание (источник),
координаты курсора X,Y:integer, состояние процесса перетаскивания
State:TDragState, и результат, который надо вернуть var Accept:boolean.
Второй обработчик вызывается, когда пользователь отпускает кнопку мыши, и
контрол Sender:TObject должен отработать прием переданной ему "посылки"
Source:TObject, по координатам X,Y : integer.
Предлагаемый пример DualListFrame
реализует операции drag"n"drop над двумя списками TListBox, организованными в
один фрейм с органами управления. Прототипом послужил стандартный шаблон-форма
"Dual list box" из репозитория Delphi и аналогичный компонент-диалог из
библиотеки RxLib. Первый не снабжен функциями drag"n"drop, а второй хоть и умеет
это, но все равно является отдельным диалогом, что не всегда удобно.
Данный пример благодаря технологии фреймов позволяет встроить двойной список
"со всеми причиндалами" в любую форму проекта. Чтобы им воспользоваться,
достаточно подключить модуль DualListFrame.pas к проекту. Для удобства при
многократном использовании (в разных проектах) можно добавить его в репозиторий,
скопировав предварительно в общую для шаблонов директорию (например,
"Delphi5\ObjRepos"). В архиве вместе с кодом и ресурсом фрейма имеется
пиктограмма для репозитория и вырезка из файла "Delphi5\Bin\delphi32.dro".
Ниже приведены фрагменты исходного текста, ключевые для реализации технологии
"тащи и бросай".
procedure TfrDualList.ListDragOver(Sender, Source: TObject; X,
Y: Integer; State: TDragState; var Accept: Boolean);
var
DragIndex: integer;
begin// из другого листбокса принимаем всегдаif Source <> Sender then
Accept := true// а если это мы сами - надо проверить возможность изменения порядка// в списке и позицию сбрасыванияelsewith (Sender as TListBox) dobegin
Accept := False;
ifnot Sorted and ((SelCount = 1) or (not MultiSelect)) thenbegin
DragIndex := ItemAtPos(Point(X, Y), True);
if (DragIndex >= 0) and (DragIndex <> ItemIndex) then
Accept := True; // попали внутрь видимого спискаend;
end;
// установка изображения курсораif State = dsDragLeave then
(Source as TListBox).DragCursor := crDrag;
if (State = dsDragEnter) and ((Source as TListBox).SelCount > 1) then
(Source as TListBox).DragCursor := crMultiDrag;
end;
procedure TfrDualList.ListDragDrop(Sender, Source: TObject; X, Y: Integer);
beginif Source <> Sender then// перемещаем элементы из другого листбокса
MoveItems(TListBox(Source), TListBox(Sender))
else
BoxMoveSel(TListBox(Sender), // перемещаем элемент внутри списка
TListBox(Sender).ItemAtPos(Point(X, Y), True));
end;
Если Вас заинтересовала или понравилась информация по разработке на Delph - "Drag and Drop для TListBox на примере двойного списка", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу: Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!