怎样实现拖动功能?

[ygb321]

我想在软件里实现想WINDOWS桌面样的东东,要求所有的图标能拖动,并且能像回收站样能将图标放在里面(只要能判断有图标放在它上面就行),我用ListView它不能实现图标拖动,大家有什么办法实现?

[IORILI]

listview可以实现拖动，这个问题前面提过，你搜一下，就能找到

[WuLoveXue]

没做过，帮你顶下

[tangcz]

This code comes from an application that contains a list box and three labels, each with a different font and color. The DragMode property for each of the labels is dmAutomatic. The user can select a label and drag it to a list box and drop it. When the label is dropped, the items in the list box assume the color and font of the dropped label.
This OnDragOver event handler permits the list box to accept a dropped label:

procedure TForm1.ListBox1DragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean);

begin
Accept := Source is TLabel;

end;

This OnDragDrop event handler implements the drop behavior.

procedure TForm1.ListBox1DragDrop(Sender, Source: TObject; X, Y: Integer);

begin
if (Sender is TListBox) and (Source is TLabel) then
begin
with Sender as TListBox do
begin
Font := (Source as TLabel).Font;
Color := (Source as TLabel).Color;
end;
end;
end;