【Delphi】实现接收系统拖动文件（改进方法）

在 Delphi 中，当从系统拖动文件到 Form 时，默认情况下不会触发 OnDragOver 事件，因为这是由 Windows 的拖放机制 (WM_DROPFILES) 处理的，而不是 Delphi 的 VCL 拖放系统。因此，要实现拖动文件时能够改变鼠标样式，必须结合 WM_DROPFILES 消息处理和鼠标样式的改变。

解决方案是使用 DragEnter、DragOver 和 DragLeave 事件处理文件拖放时的鼠标样式变化。为了做到这一点，我们需要使用更高级的 IDropTarget 接口，它比 WM_DROPFILES 更灵活，允许我们捕捉拖放操作的更多细节，包括鼠标进入、移动和离开窗口的事件。

方案：使用 IDropTarget 实现拖放功能并改变鼠标样式

1. 创建自定义的 TDropTarget 类 来实现 IDropTarget 接口，处理 DragEnter、DragOver 和 DragLeave 事件。
2. 注册窗口为拖放目标，使它能够处理拖放文件并动态更改鼠标样式。

具体实现步骤：

第一步：定义 TDropTarget 类

uses
  Winapi.Windows, Winapi.ActiveX, Vcl.Forms, Vcl.Controls, System.SysUtils, Vcl.Graphics, Winapi.ShellAPI;

type
  TDropTarget = class(TInterfacedObject, IDropTarget)
  private
    FForm: TForm;
  public
    constructor Create(AForm: TForm);
    // IDropTarget methods
    function DragEnter(const DataObj: IDataObject; grfKeyState: Longint; pt: TPoint; var dwEffect: Longint): HResult; stdcall;
    function DragOver(grfKeyState: Longint; pt: TPoint; var dwEffect: Longint): HResult; stdcall;
    function DragLeave: HResult; stdcall;
    function Drop(const DataObj: IDataObject; grfKeyState: Longint; pt: TPoint; var dwEffect: Longint): HResult; stdcall;
  end;

第二步：实现 TDropTarget 类的方法

constructor TDropTarget.Create(AForm: TForm);
begin
  FForm := AForm;
end;

function TDropTarget.DragEnter(const DataObj: IDataObject; grfKeyState: Longint; pt: TPoint; var dwEffect: Longint): HResult;
begin
  // 设置鼠标光标为拖放状态
  FForm.Cursor := crDrag;
  dwEffect := DROPEFFECT_COPY; // 允许拷贝操作
  Result := S_OK;
end;

function TDropTarget.DragOver(grfKeyState: Longint; pt: TPoint; var dwEffect: Longint): HResult;
begin
  dwEffect := DROPEFFECT_COPY; // 拷贝操作
  Result := S_OK;
end;

function TDropTarget.DragLeave: HResult;
begin
  // 恢复鼠标光标为默认状态
  FForm.Cursor := crDefault;
  Result := S_OK;
end;

function TDropTarget.Drop(const DataObj: IDataObject; grfKeyState: Longint; pt: TPoint; var dwEffect: Longint): HResult;
var
  FormatEtc: TFormatEtc;
  Medium: TStgMedium;
  FileNameList: PChar;
  i, FileCount: Integer;
  FileName: string;
begin
  // 处理文件拖放
  FormatEtc.cfFormat := CF_HDROP;
  FormatEtc.ptd := nil;
  FormatEtc.dwAspect := DVASPECT_CONTENT;
  FormatEtc.lindex := -1;
  FormatEtc.tymed := TYMED_HGLOBAL;

  if DataObj.GetData(FormatEtc, Medium) = S_OK then
  begin
    try
      FileCount := DragQueryFile(Medium.hGlobal, $FFFFFFFF, nil, 0);
      for i := 0 to FileCount - 1 do
      begin
        SetLength(FileName, MAX_PATH);
        DragQueryFile(Medium.hGlobal, i, PChar(FileName), MAX_PATH);
        FileName := PChar(FileName); // 转换为字符串
        ShowMessage('Dropped file: ' + FileName);
      end;
    finally
      DragFinish(Medium.hGlobal);
      ReleaseStgMedium(Medium);
    end;
  end;

  dwEffect := DROPEFFECT_COPY;
  Result := S_OK;
end;

第三步：在 Form 中注册拖放目标

在 FormCreate 中注册你的 Form 为拖放目标，并将 TDropTarget 实例与 Form 关联。

uses
  Winapi.ActiveX;

procedure TForm1.FormCreate(Sender: TObject);
var
  DropTarget: TDropTarget;
begin
  // 初始化 COM 库
  OleInitialize(nil);

  // 创建并注册拖放目标
  DropTarget := TDropTarget.Create(Self);
  RegisterDragDrop(Handle, DropTarget);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  // 注销拖放目标
  RevokeDragDrop(Handle);

  // 关闭 COM 库
  OleUninitialize;
end;

代码解释：

1. IDropTarget 接口：此接口包含处理拖放操作的 4 个方法：

   • DragEnter：当拖动操作进入控件区域时触发。
   • DragOver：当拖动操作在控件区域内移动时触发。
   • DragLeave：当拖动操作离开控件区域时触发。
   • Drop：当文件被放下时触发。

2. 鼠标光标变化：

   • 在 DragEnter 中，将鼠标光标设置为 crDrag，即表示正在进行拖放。
   • 在 DragLeave 中，将光标恢复为默认状态 crDefault。

3. Drop 方法：

   • 使用 CF_HDROP 格式提取文件列表。
   • 调用 DragQueryFile 获取文件名并显示。

最终效果：

• 当拖动文件进入 Form 时，鼠标光标会改变为拖动状态。
• 放下文件后，文件路径会被提取并处理。
• 拖动结束后，鼠标光标会恢复为默认状态。

总结：

通过实现 IDropTarget 接口，你可以准确地捕获拖放过程中的各个阶段，并在拖动文件时动态改变鼠标光标。相比于直接使用 WM_DROPFILES，这种方式更加灵活，能够在拖动过程中进行更多操作。