在listview中如何拖动图标呢？

[fenglaile]

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

[fenglaile]

具体一点，我对这个控件不熟悉，谢谢

[zhoutian618]

unit Unit1;

interface

uses
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.

[fenglaile]

谢谢你了！可以交个朋友吗

[fenglaile]

我的qq是20124155 email：[e-mail]

[zhoutian618]

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