TListView拖动时重影问题如果何解决! ( 积分: 100 )

在拖动listview,中的item时出现偶尔出现重影如何解!!!

procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView;
Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
var
aRect: TRect;
bmp: TBitmap;
begin
aRect := Item.DisplayRect(drBounds);
if cdsSelected in State then
begin
//cdsFocused 还可以分别处理是激活状态时的图象
DefaultDraw := False; //加上这一句就可以了
bmp := TBitmap.Create;
try
ImageList1.GetBitmap(0, bmp);
Sender.Canvas.StretchDraw(Rect(aRect.Left, aRect.Top, bmp.Width, bmp.Height), bmp);
finally
bmp.Free;
end;
end;
end;
//这个效果不知道是不是你要的! 去掉哪个覆盖上一层蒙蒙的蓝色

是拖动后,留下很多重复的影象!

Listview.BeginUpdate;
try
...//拖动代码
finally
Listview.EndUpdate;
End;
这样行不行？