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;