注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

BCB-DG's Blog

...

 
 
 

日志

 
 

Delphi文件拖放  

2013-07-02 15:02:48|  分类: Delphi |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
//轉
unit uDropFile;

//这个小程序实现的内容是比较简单的,更有难度一些的,可以在RichEdit内部, 实现对选定文字的拖放

//支持文件拖放关键在于两点 :
//1 、使程序能接收WM_DROPFILES消息 ;
//2 、在WM_DROPFILES消息的响应程序中取得被拖放的文件名,然后进行相应处理。
// 使程序能接收WM_DROPFILES消息
// 首先,需要调用WINAPI DragAcceptFiles(Handle, True);
// 其中的Handle为要接收WM_DROPFILES消息的控件的Handle 。
// 例如,我们要让RichEdit接收该消息,则调用形式为:
// DragAcceptFiles(DropFileFrm.RichEdit.Handle, True);
// 其次,要在收到 WM_DROPFILES 消息时做处理,需要用自己的代码替换该控件的WindowProc方法。
// 在替换前,要保存原来的WindowProc方法以便处理其他消息。
// 为此,我们定义一个全程变量OldWndProc: TWndMethod保存原来的WindowProc方法;
// 再在窗体定义的Public段定义了一个方法:
// procedure DragFileProc(var Message: TMessage);
// 作为新的WindowProc方法。在Unit的implementation段内写下DragFileProc的完整代码,
// 当消息为其他消息地调用OldWndProc来处理,当消息为WM_DROPFILES时,作相应处理。
// 取得被拖放的文件名,然后进行相应处理
// 在WM_DROPFILES消息的响应程序中,先调用:
// DragQueryFile(Message.wParam, $FFFFFFFF, nil, 0);
// 返回值为拖放的文件总数。再循环调用:
// DragQueryFile(Message.wParam, FileNum, Buf, Len);
// 取得拖放文件全名。FileNum为0到拖放的文件总数减1的值,buf为Pchar型,
// 是存放文件名的缓冲区,Len为文件名缓冲区长度。至于取得文件名后的处理,就悉听尊便了。
// 一定要注意 Pchar 和 String 的转换!

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ShellApi, ComCtrls;

type
TTDropFileFrm
= class(TForm)
RichEdit: TRichEdit;
RichEdit1: TRichEdit;
procedure FormCreate(Sender: TObject);
private
OLDWndProc: TWndMethod;
 
public
procedure DragFileProc(var Message: TMessage);
end;

var
DropFileFrm: TTDropFileFrm;

implementation
{$R *.dfm}

procedure TTDropFileFrm.DragFileProc(var Message: TMessage);
var
FileNum: Word;
p:
array[0..254] of char;
begin
if Message.Msg = WM_DropFiles then
begin
Self.RichEdit.Clear;
FileNum :
= DragQueryFile(Message.WParam, $FFFFFFFF, nil, 0);
// 取得拖放文件总数
for FileNum := 0 to FileNum - 1 do
begin
DragQueryFile(Message.WParam, FileNum, p,
255);
// 取得拖放文件名
//Self.MemoDrag.Lines.add(StrPas(p));
//对文件的处理
RichEdit.Lines.LoadFromFile(StrPas(p));
end;
end
else // 其他消息,调用原来的处理程序
OLDWndProc(Message);
end;

procedure TTDropFileFrm.FormCreate(Sender: TObject);
begin
DragAcceptFiles(Self.RichEdit.Handle, True);
OLDWndProc :
= Self.RichEdit.WindowProc;
// 保存原来的 WindowProc
Self.RichEdit.WindowProc :
= Self.DragFileProc;
// 设置新的 WindowProc
RichEdit.Lines.Clear;
end;

end.
  评论这张
 
阅读(603)| 评论(0)
推荐 转载

历史上的今天

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017