关于ListView的使用...

Question

我将ListView的viewstyle设为vsIcon,我想能随意拖动各项图标，任意排列，可以吗？请高手指点.

Answer 1

这样做
procedure TForm1.ListView1DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
         accept:=true;//可以拖动
end;procedure TForm1.ListView1DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
    listview1.Selected.Left:=x;
    listview1.Selected.Top:=y;
end;

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
begin
    listview1.Arrange(arAlignTop); //恢复原状
end;