上一篇:TWebBrowser禁止弹出Alert对话框
下一篇:Delphi点击网页弹出的Alert对话框的确定按钮

Delphi使用文件拖放功能

发布于: 2013-6-11 20:27:21   |  发布在: Delphi文章   |  点击:

1. 新建一个Delphi工程,将Form1的FormStyle属性设置为:fsStayOnTop,在窗体上放置一个Memo1控件,用于显示拖放进来的文件名;

2. 添加单元引用:ShellAPI

3. 在Public部分声名一个处理WM_DROPFILES消息的过程
  public
     procedure WmDropFiles(var Msg: TMessage); message WM_DROPFILES;

4. 在Form1的OnCreate事件中添加下面一行

procedure TForm1.FormCreate(Sender: TObject);
begin
   DragAcceptFiles(Form1.Handle, True);
end;

5. 在implementation部分编写WmDropFiles消息处理过程代码

procedure TForm1.WmDropFiles(var Msg: TMessage);
var
   P:array[0..254of Char;
   i:Word;
begin
   Inherited;
   Memo1.Lines.Clear;
   {$IFDEF WIN32}
      i:=DragQueryFile(Msg.wParam,$FFFFFFFF,nil,0);
   {$ELSE}
      i:=DragQueryFile(Msg.wParam,$FFFF,nil,0);
   {$ENDIF}
   Caption:=IntToStr(i);
   for i:=0 to i-1 do
   begin
     DragQueryFile(Msg.wParam,i,P,255);
     Memo1.Lines.Add(StrPas(P));
   end;
end;

消息