在listview中如何拖动图标呢？

Question

在listview中如何拖动图标呢？我在一个程序中想作成和windows一样的管理器，但是我不会把里面的图标进行拖动

Answer 1

设置ListView.DragMode=dmAutomaticl;
写OnDragOver和OnDragDrop事件即可。

Answer 2

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls;type
  TForm1 = class(TForm)
    ListView1: TListView;
    procedure ListView1DragOver(Sender, Source: TObject; X, Y: Integer;
      State: TDragState; var Accept: Boolean);
    procedure ListView1DragDrop(Sender, Source: TObject; X, Y: Integer);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.DFM}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;procedure TForm1.FormCreate(Sender: TObject);
begin
  ListView1.DragMode:=dmAutomatic;
end;end.

Answer 3

我的qq是20124155 email：[email protected]