delphi拖拽文件问题

罂粟

我想拖拽一个zip文件到编辑框，然后编辑框中就显示它的文件路径，这个怎么实现？

恒信网络科技

1. 
   
2. 
   
3. unit uDropFile;
   
4. 
   
5. {
   
6. 
   
7. 这个小程序实现的内容是比较简单的,更有难度一些的,可以在RichEdit内部, 实现对选定文字的拖放
   
8. 
   
9. 
   
10. =========================如何在Delphi程序中支持文本拖放========================}
    
11. //支持文件拖放关键在于两点 :
    
12. //1 、使程序能接收WM_DROPFILES消息 ;
    
13. //2 、在WM_DROPFILES消息的响应程序中取得被拖放的文件名,然后进行相应处理。
    
14. // 使程序能接收WM_DROPFILES消息
    
15. // 首先,需要调用WINAPI DragAcceptFiles(Handle, True);
    
16. // 其中的Handle为要接收WM_DROPFILES消息的控件的Handle 。
    
17. // 例如,我们要让RichEdit接收该消息,则调用形式为:
    
18. // DragAcceptFiles(DropFileFrm.RichEdit.Handle, True);
    
19. // 其次,要在收到 WM_DROPFILES 消息时做处理,需要用自己的代码替换该控件的WindowProc方法。
    
20. // 在替换前,要保存原来的WindowProc方法以便处理其他消息。
    
21. // 为此,我们定义一个全程变量OldWndProc: TWndMethod保存原来的WindowProc方法;
    
22. // 再在窗体定义的Public段定义了一个方法:
    
23. // procedure DragFileProc(var Message: TMessage);
    
24. // 作为新的WindowProc方法。在Unit的implementation段内写下DragFileProc的完整代码,
    
25. // 当消息为其他消息地调用OldWndProc来处理,当消息为WM_DROPFILES时,作相应处理。
    
26. // 取得被拖放的文件名,然后进行相应处理
    
27. // 在WM_DROPFILES消息的响应程序中,先调用:
    
28. // DragQueryFile(Message.wParam, $FFFFFFFF, nil, 0);
    
29. // 返回值为拖放的文件总数。再循环调用:
    
30. // DragQueryFile(Message.wParam, FileNum, Buf, Len);
    
31. // 取得拖放文件全名。FileNum为0到拖放的文件总数减1的值,buf为Pchar型,
    
32. // 是存放文件名的缓冲区,Len为文件名缓冲区长度。至于取得文件名后的处理,就悉听尊便了。
    
33. // 一定要注意 Pchar 和 String 的转换！
    
34. {===============================================================================}
    
35. 
    
36. interface
    
37. 
    
38. uses
    
39. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    
40. Dialogs, StdCtrls, ShellApi, ComCtrls;
    
41. 
    
42. type
    
43. TTDropFileFrm = class(TForm)
    
44. RichEdit: TRichEdit;
    
45. RichEdit1: TRichEdit;
    
46. procedure FormCreate(Sender: TObject);
    
47. private
    
48. { Private declarations }
    
49. public
    
50. procedure DragFileProc(var Message: TMessage);
    
51. { Public declarations }
    
52. end;
    
53. 
    
54. var
    
55. DropFileFrm: TTDropFileFrm;
    
56. 
    
57. implementation
    
58. 
    
59. var
    
60. OLDWndProc: TWndMethod;
    
61. 
    
62. {$R *.dfm}
    
63. 
    
64. procedure TTDropFileFrm.DragFileProc(var Message: TMessage);
    
65. var
    
66. FileNum: Word;
    
67. p: array[0..254] of char;
    
68. begin
    
69. if Message.Msg = WM_DropFiles then
    
70. begin
    
71. Self.RichEdit.Clear;
    
72. FileNum := DragQueryFile(Message.WParam, $FFFFFFFF, nil, 0);
    
73. // 取得拖放文件总数
    
74. for FileNum := 0 to FileNum - 1 do
    
75. begin
    
76. DragQueryFile(Message.WParam, FileNum, p, 255);
    
77. // 取得拖放文件名
    
78. //Self.MemoDrag.Lines.add(StrPas(p));
    
79. //对文件的处理
    
80. RichEdit.Lines.LoadFromFile(StrPas(p));
    
81. end;
    
82. end
    
83. else // 其他消息,调用原来的处理程序
    
84. OLDWndProc(Message);
    
85. end;
    
86. 
    
87. procedure TTDropFileFrm.FormCreate(Sender: TObject);
    
88. begin
    
89. DragAcceptFiles(Self.RichEdit.Handle, True);
    
90. OLDWndProc := Self.RichEdit.WindowProc;
    
91. // 保存原来的 WindowProc
    
92. Self.RichEdit.WindowProc := Self.DragFileProc;
    
93. // 设置新的 WindowProc
    
94. RichEdit.Lines.Clear;
    
95. end;
    
96. 
    
97. end.

复制代码

comeheres

明天给你写个demo，今晚有点困了

罂粟

comeheres 发表于 2014-2-22 03:10

                               
登录/注册后可看大图

明天给你写个demo，今晚有点困了

已经知道了，谢谢

by024

这个功能还是比较实用的，本人就很喜欢这样的操作。一般是老手才这样，不太玩电脑的新手们，根本不知道有这样的操作方法的。{:1_1:}