Изменение позиций элементов ListBox с помощью Drag and Drop
Автор: Nick Hodges (Monterey, CA)
Я хотел бы изменить порядок следования элементов в неотсортированном списке ListBox методом drag&drop, т.е. просто перетаскивая их мышью на нужное место. Будет еще лучше, если при удержании кнопки мыши перетаскиваемый элемент визуально перемещал бы вверх или вниз сам список (для определения своего нового месторасположения) до тех пор, пока клавиша мыши не будет отпущена (как я понял, автоматическое скроллирование - В.О.).
Попробуйте для начала это:
|
Code: |
|
unit Draglb;
interface
uses SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;
type TDragListBox = class(TListBox) private { Private declarations } protected { Protected declarations } public { Public declarations } procedure DragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean); procedure DragDrop(Sender, Source: TObject; X, Y: Integer); constructor Create(AOwner: TComponent); override; { Published declarations } end;
procedure Register;
implementation
procedure Register; begin RegisterComponents('Custom', [TDragListBox]); end;
constructor TDragListBox.Create(AOwner: TComponent); begin inherited Create(AOwner); DragMode := dmAutomatic; OnDragDrop := DragDrop; OnDragOver := DragOver; end;
procedure TDragListBox.DragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean); begin Accept := Source = Self; end;
procedure TDragListBox.DragDrop(Sender, Source: TObject; X, Y: Integer); var Value: Integer; begin if Sender = Self then begin Value := Self.ItemAtPos(Point(x, y), True);
if Value = -1 then begin Self.Items.Add(Self.Items[Self.ItemIndex]); Self.Items.Delete(Self.ItemIndex); end else begin Self.Items.Insert(Value {+ 1}, Self.Items[Self.ItemIndex]); Self.Items.Delete(Self.ItemIndex); end; end; end;
end. |
Чтобы заставить элемент перемещаться в позицию каждого элемента, вам необходимо сопоставлять область текущего элемента с текущим положения курсора мыши. Для организации автоматического скроллирования также необходимо вычислять текущие координаты курсора.
https://delphiworld.narod.ru/
DelphiWorld 6.0
Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.
ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!