精华区 [关闭][返回]

当前位置:网易精华区>>讨论区精华>>编程开发>>● Delphi>>控件开发和使用>>Re: DELPHI如何接受文件的拖拉,如何得到拖过来的文件的文件名?

主题:Re: DELPHI如何接受文件的拖拉,如何得到拖过来的文件的文件名?
发信人: limodou@GZ()
整理人: delfan(2001-03-30 21:55:10), 站内信件

标  题: Re: DELPHI如何接受文件的拖拉,如何得到拖过来的文件的文件名?
发信站: 网易虚拟社区 (Mon Feb 28 00:04:04 2000), 站内信件

【 在 powerjeep (恋曲2000) 的大作中提到: 】
: 在ONDRAGOVER事件中应该怎么判断呢?
: 还有,就是象NetAnts那样的在IE中拖动一个链接
: 到小窗口中,那么小窗口中的ondragover和ondragdrop事件的代码
: 怎么写呢?
:    .......

你所说的只能实现form里的控件的拖动。如下作:

 1.  使用单元shellapi
    可在interface中的uses后面加入对shellapi单元引用


2.  在窗体的Oncreate事件中加入
    DragAceptFiles(handle, true);  //是窗体的句柄

3.  在窗体的OnDestroy事件中加入
    DragAceptFiles(handle, False);  //是窗体的句柄

4.  在窗体定义的private下加入函数定义
    Procedure WMDropFiles(var mess:TMessage);message WM_DROPFILES;

5.  在implementation中加入函数的实现
    procedure Tform1.WMDropFiles(var mess:TMessage);
    var
        buffer:array[0..MaxPath] of Char;
        dropfilescount:integer;
        i:integer;
    begin

        inherited;

        dropfilescount:=DragQueryFile(Mess.wParam,ffffffff,nil,0);
        for i:=0 to dropfilescount-1 do
        begin
            DragQueryFile(Mess.wParam,I,P,255);
            //在此处处理字符串P即可
        end;
        DragFinish(mess.wParam);
    end;
 


--
Uploader2.0beta8 版主页上传软件,欢迎使用
http://smallroom.126.com http://smallroom.yeah.net

※ 来源:.月光软件站 http://www.moon-soft.com.[FROM: 202.106.174.8]

[关闭][返回]