Nesse post vamos implementar uma forma de mudar a ordem dos itens de um listbox apenas arrastando com o mouse.
Para começar adicione um listbox ao formulário, e altere a propriedade DragMode para dmAutomatic.
Agora vamos a implementação do código:
Crie uma variavel na seção var do formulario
[delphi]var
StartingPoint: TPoint[/delphi]
Agora vamos aos eventos do listbox:
1) Evento onDragDrop
[delphi]var
DropPosition, StartPosition: Integer;
DropPoint: TPoint;
begin
DropPoint.X := X;
DropPoint.Y := Y;
with Source as TListBox do
begin
StartPosition := ItemAtPos(StartingPoint,True) ;
DropPosition := ItemAtPos(DropPoint,True) ;
Items.Move(StartPosition, DropPosition) ;
end;
[/delphi]
2) Evento onDragOver
[delphi]Accept := Source = ListBox1;[/delphi]
3) Evento onMouseDown
[delphi]StartingPoint.X := X;
StartingPoint.Y := Y;[/delphi]
Agora faça os testes, e pronto implementamos drag and drop no nosso ListBox.
Willian Rodrigues
