Delphi编程实现从程序向外拖放文件

时间:2010-03-07 14:01:29  来源:第二电脑网  作者:第二电脑网

  第二电脑网导读: width="99%" bgcolor="#e8ffe8" border="1">procedure TForm1.ListView1MouseDown(Sender: TObject; Button: TMouseButton;Shift: TShiftState; X, Y: integer);vari: integer;begin  if (Listview1.SelCount = 0) then  exit;  if (DragDetectPlus(TWinControl(Sender).Handle, P...
  正文:一直以来,都是实现文件拖入程序的比较多,但是从程序向外拖就比较少见了。此次做这个 Demo,实现向外拖放,其实也不难的,利用 OnMouseDown 事件就行。


procedure TForm1.ListView1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: integer);
var
i: integer;
begin
  if (Listview1.SelCount = 0) then
  exit;
  if (DragDetectPlus(TWinControl(Sender).Handle, Point(X, Y))) then
  begin
    DropFileSource1.Files.Clear;
    for i := 0 to Listview1.Items.Count - 1 do
    if (Listview1.items.Item[i].Selected) then
    DropFileSource1.Files.Add(Listview1.items.Item[i].Caption);
    DropFileSource1.Execute;
  end;
end;

Delphi编程实现从程序向外拖放文件》由第二电脑网原创提供,转载请注明:http://www.002pc.com/master/College/Language/Delphi/13116.html


关键字:

关于《Delphi编程实现从程序向外拖放文件》文章的评论

站内搜索: 高级搜索

热门搜索: Windows style 系统 tr IP QQ CPU 安装 function 注册 if td