typhon (lazarus) 下文件拖放操作

本来是个简单的问题，百度了一下没有正确答案。我就在这里写下

方法1：

procedure TForm1.FormCreate(Sender: TObject);
begin
  self.AllowDropFiles:= true;
end;     

方法2：

 

 

 

上面根据喜好，自选或全选都可（其实就是一回事）。

关键代码例子：处理OnDropFiles事件

 

procedure TForm1.FormDropFiles(Sender: TObject; const FileNames: array of string  );
var
   szfilename:string ;
begin
  for   szfilename in FileNames do
     begin

      //处理拖入文件
       showmessage(szfilename)    ;
     end;
end;