如何让ListView里的图标可以自由活动？

[99175776]

如何让ListView里的图标可以自由活动？我把它设成了不是一次选取整行，表头可以拉动，都用了还是不行。我用的是大图标。
望高手指点一二。

[IORILI]

给你源程序自己看吧：
procedure Tsys_fInit.fileViewMouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
if button=mbleft then
begin
with sender as TListview do
begin
if GetItemAt(x,y)<>nil then
begindrag(false);
end;
end;
end;

procedure Tsys_fInit.fileViewDragDrop(Sender, Source: TObject; X,
Y: Integer);
var
PosPoint:TPoint;
begin
PosPoint.x:=x;
PosPoint.y:=Y;
(Source As TListView).Selected.SetPosition(PosPoint);

end;


procedure Tsys_fInit.fileViewDragOver(Sender, Source: TObject; X,
Y: Integer; State: TDragState; var Accept: Boolean);
begin
accept:=Source is TlistView
end;

[99175776]

谢谢　眼镜兄！！
成功了。感谢！！