请教：如何实现象资源管理器一样的Drag & Drop？(200分)

Micro Whaight · 2000-09-22

在两个资源管理器之间进行拖动时，接收拖入的资源管理器 会随着鼠标的移动而加亮显示对应的TreeNode，这样当Drop时， 会把拖放的文件Copy/Move到对应的目录中。该如何实现这种效 果？ Form的DragOver事件好像只能响应自己内部的DragOver动作， 如果是从资源管理器中拖入的文件，Delphi不理我？我只知道 响应WM_DropFiles消息和设置DragAcceptFiles()。Win的帮 助中找不到一个WM_Drag消息。

thtfsyh · 2000-09-22

kucio · 2000-09-22

private     { Private declarations }     procedure wmdropfiles(var message:tmessage);message wm_dropfiles; procedure TFrmMain.wmdropfiles(var message:tmessage); var   p:array[0..254] of char;   i:word;   Num:Word; begin   inherited;   Num:=dragqueryfile(message.wparam,$ffffffff,nil,0);      for i:=0 to Num-1 do         begin           dragqueryfile(message.wparam,i,p,255);          //p中存储了拖放过来的文件名         end;    end; end;

www · 2000-09-22

到我的主页:http://www.wapsec.com.cn/delphi/中找有关drop的控件.

Micro Whaight · 2000-09-23

不好意思，我可能没讲清楚。 我是想在鼠标还没放开的时候，窗口就可以收到消息并 对它进行处理。WM_DropFiles消息好象只能在放开鼠标 的时候，才能接收到？ www: 那个控件我也下过了，不过它好象没有我要的功能？ （我没有仔细看，只运行了它的for D3 的Demo），也只 能是在鼠标放开时才行？另外，这个控件用到了接口？我 对此已通六窍。

Micro Whaight · 2000-09-27

唉，好吧，结束。

wheel · 2000-09-27

kucio · 2000-09-27

好象无法实现，我也曾想做过，但没成功。

pxd · 2000-09-30

应该独立来考虑，判断拖入本程序中的object的属性、来源等,再决定是否应该有相应动作。

devuser · 2000-09-30

unit FileDropPan; interface uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,   ExtCtrls; type     TDragFileEvent = procedure (Sender: TComponent; FileList: TStrings) of object;   TAIFileDropPan = class(TPanel)   private     { Private declarations }     FDragFileEvent: TDragFileEvent;     FAcceptFile: boolean;     procedure SetAcceptFile(const Value: boolean);   protected     { Protected declarations }     FileList: TStringList;   public     { Public declarations }     procedure WithDropFIles(var Msg: TMessage); message WM_DROPFILES;     constructor Create(AOwner: TComponent); override;     destructor Destroy; override;   published     { Published declarations }     property OnDragFile :TDragFileEvent read FDragFileEvent write FDragFileEvent;     property AcceptFile: boolean read FAcceptFile write SetAcceptFile;   end; procedure Register; implementation Uses ShellAPI; procedure Register; begin   RegisterComponents('Voice', [TAIFileDropPan]); end; constructor TAIFileDropPan.Create(AOwner: TComponent); begin      Inherited Create(AOwner);      parent := AOwner As TWinControl;      AcceptFile := true;      FileList := TStringList.Create; end; destructor TAIFileDropPan.Destroy; begin      if parent <> nil then         if AcceptFile then AcceptFile := false;      FileList.Free;      inherited; end; procedure TAIFileDropPan.SetAcceptFile(const Value: boolean); begin      FAcceptFile := Value;      DragAcceptFiles(Handle, FAcceptFile); end; procedure TAIFileDropPan.WithDropFIles(var Msg: TMessage); Var    Buffer: Array[0..255] of Char;    count: Integer;    intX: Integer; begin      count := DragQueryFile( Msg.WParam, $FFFFFFFF, Buffer, 255);      FileList.Clear;      for intX := 0 to count-1 do      begin           DragQueryFile( Msg.WParam, intX, Buffer, 255);           FileList.Add( Buffer);      end;      DragFinish( Msg.WParam);      if Assigned(FDragFileEvent) then           FDragFileEvent(Self, FileList); end; end. 我写的控件，从Panel继承过来的。能够接收拖放的文件，上面放置的其他控件也能接收文件。

JJams_King · 2000-09-30

IDropTarget中就有你关心的方法： IDropTarget:

ragEnter IDropTarget:

ragOver IDropTarget:

ragLeave IDropTarget:

rop

Micro Whaight · 2000-10-03

最不想发生的事情终于发生了，还是要用到COM接口……  

谢谢几位的帮助。要对www说声对不起，上次你要我下的控件，第一次 没仔细用，后来看了几位的说明，再仔细看，可以达到我的要求。不过， 看了半天，决定还是用这个控件，不自己写了。写不出那个水平<br

谢谢devuser提供的代码。这几天放假，我好好学习一下。

请教：如何实现象资源管理器一样的Drag & Drop？(200分)

Micro Whaight

Unregistered / Unconfirmed

thtfsyh

Unregistered / Unconfirmed

kucio

Unregistered / Unconfirmed

www

Unregistered / Unconfirmed

Micro Whaight

Unregistered / Unconfirmed

Micro Whaight

Unregistered / Unconfirmed

wheel

Unregistered / Unconfirmed

kucio

Unregistered / Unconfirmed

pxd

Unregistered / Unconfirmed

devuser

Unregistered / Unconfirmed

JJams_King

Unregistered / Unconfirmed

Micro Whaight

Unregistered / Unconfirmed

Similar threads