【Delphi】实现接收系统拖动文件

在 Delphi 中，可以通过以下步骤来实现将文件夹中的文件拖动到 Form 上，并在拖动时显示文件类型的光标。我们可以利用 VCL 中的 Drag and Drop 机制来处理拖动操作，以及自定义光标显示。

以下是详细的步骤和代码示例：

实现步骤：

启用 Form 的拖动功能。
监听 OnDragOver 和 OnDrop 事件，处理拖放操作。
获取拖放文件路径信息。
根据拖放文件的类型，显示相应的光标。

代码实现：

1. 设置 `Form` 的 `AllowDrop` 属性

首先需要确保表单（Form）的 Drag and Drop 功能是启用的，设置 Form 的 DragMode 为 dmManual，这样就可以手动处理拖动事件。

2. 处理 `OnDragOver` 和 `OnDrop` 事件

usesShellAPI, System.SysUtils, Vcl.Graphics;typeTForm1 = class(TForm)procedure FormCreate(Sender: TObject);procedure FormDragOver(Sender, Source: TObject; X, Y: Integer;State: TDragState; var Accept: Boolean);procedure FormDragDrop(Sender, Source: TObject; X, Y: Integer);private{ Private declarations }public{ Public declarations }end;varForm1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
begin// 允许拖放操作DragAcceptFiles(Handle, True);
end;// 拖动文件经过Form时触发
procedure TForm1.FormDragOver(Sender, Source: TObject; X, Y: Integer;State: TDragState; var Accept: Boolean);
begin// 确保只接受文件类型的拖放Accept := True;// 这里可以自定义光标样式，根据文件类型动态改变光标Screen.Cursor := crDrag; // 改成你需要的光标类型
end;// 拖放文件到Form上时触发
procedure TForm1.FormDragDrop(Sender, Source: TObject; X, Y: Integer);
varFileList: array[0..MAX_PATH] of Char;DroppedFilesCount, i: Integer;FileName: string;
begin// 获取拖放的文件数量DroppedFilesCount := DragQueryFile(Message.WParam, $FFFFFFFF, nil, 0);// 遍历所有拖放的文件for i := 0 to DroppedFilesCount - 1 dobegin// 获取每个文件的完整路径DragQueryFile(Message.WParam, i, FileList, MAX_PATH);FileName := FileList;// 在这里处理拖放的文件，比如显示文件名ShowMessage('Dropped file: ' + FileName);end;// 释放资源DragFinish(Message.WParam);
end;end.

解释：

DragAcceptFiles(Handle, True)：在表单的 FormCreate 事件中，启用拖放功能，允许表单接收拖放的文件。
FormDragOver 事件：
- 通过 Accept := True; 确认接收拖动的文件。
- 在拖动时，通过 Screen.Cursor := crDrag; 动态改变光标的样式，可以自定义光标，比如显示不同的文件类型图标（此处简单使用默认的拖动光标）。
FormDragDrop 事件：
- 使用 DragQueryFile 函数获取拖动到表单上的文件路径。
- 遍历拖动的文件，可以对每个文件进行相应的处理（如显示、保存等）。

进一步自定义光标：

要根据拖动文件的类型来更改光标图标，可以通过文件的扩展名来动态设置光标。例如，当拖动的是图片文件时，可以设置为图片图标。

procedure TForm1.FormDragOver(Sender, Source: TObject; X, Y: Integer;State: TDragState; var Accept: Boolean);
varFileExt: string;
begin// 假设只接受某些文件类型的拖放Accept := True;// 通过扩展名判断文件类型，并设置不同的光标FileExt := ExtractFileExt(DraggedFile); // 你需要传入拖动的文件名if FileExt = '.png' thenScreen.Cursor := crHandPoint  // 可以自定义光标else if FileExt = '.txt' thenScreen.Cursor := crHourGlasselseScreen.Cursor := crNoDrop; // 如果不是支持的文件类型
end;