从程序向外拖放文件

1. procedure TForm1.ListView1MouseDown(Sender: TObject; Button: TMouseButton;
2.    Shift: TShiftState; X, Y: integer);
3. var
4.    i: integer;
5. begin
6.    if (Listview1.SelCount = 0) then
7.      exit;
8.    if (DragDetectPlus(TWinControl(Sender).Handle, Point(X, Y))) then
9.    begin
10.      DropFileSource1.Files.Clear;
11.      for i := 0 to Listview1.Items.Count - 1 do
12.        if (Listview1.items.Item[i].Selected) then
13.          DropFileSource1.Files.Add(Listview1.items.Item[i].Caption);
14.      DropFileSource1.Execute;
15.    end;
16. end;

 一直以来，都是实现文件拖入程序的比较多，但是从程序向外拖就比较少见了。此次做这个 Demo，实现向外拖放，其实也不难的，利用 OnMouseDown 事件就行。