拖拽文件到窗体, 然后就可以操作文件了

最新推荐文章于 2024-10-04 17:52:38 发布

wztimes

最新推荐文章于 2024-10-04 17:52:38 发布

阅读量222

点赞数

分类专栏： Delphi 文章标签： buffer interface excel

本文链接：https://blog.csdn.net/wztimes/article/details/7621720

版权

Delphi 专栏收录该内容

14 篇文章 0 订阅

订阅专栏

要处理一个文件, 比如excel, 通常可以用按钮打开一个文件对话框,再找到打开
不过如果直接拖拽到窗体, 这样的操作是不是更潇洒些 O(∩_∩)O哈哈~
通过3步骤就可以在buffer得到文件名了

1: 
interface里
  private
    { Private declarations }
  public
    { Public declarations }
    procedure DropFiles(var Msg: TMessage); message WM_DROPFILES;

2:
//拖拽文件,显示文件名至memo
procedure TForm1.DropFiles(var msg: TMessage);
var
  buffer: array[0..1024] of Char; //存放所打开的文件名及路径
begin
  inherited;
  buffer[0] := #0;
  DragQueryFile(Msg.WParam, 0, buffer, sizeof(buffer)); 
  mmo1.Text:= buffer; //显示拖拽得到文件完整路径及文件名
  //OpenExcel();
end;

3:
procedure TForm1.FormCreate(Sender: TObject);
begin
  DragAcceptFiles(Handle,True);//第二个参数为False时，不启用文件拖放
end;