Delphi MDI子窗体如何接收并处理WM_DROPFILES Windows消息？

MDI架构并非完全不允许子窗体处理文件拖放消息，而是Windows的MDI消息机制导致拖放消息默认被MDI主窗口拦截——所有针对MDI子窗口区域的拖放操作，系统会先将WM_DROPFILES消息发送给MDI主窗口，而非直接传递给子窗口，这就是你只看到主窗口处理过程触发的原因。

要让子窗体处理拖放文件，需要通过主窗口中转消息，具体实现步骤如下：

1. 主窗口保留拖放注册与消息处理 #

主窗口仍需在创建时启用拖放接收，并实现WM_DROPFILES处理过程，负责提取拖放文件并转发给激活的子窗体：

procedure TMainForm.FormCreate(Sender: TObject);
begin
  DragAcceptFiles(Self.Handle, True); // 主窗口注册拖放接收
end;

procedure TMainForm.WMDropFiles(var Msg: TWMDropFiles);
var
  FileCount: Integer;
  FileName: array[0..MAX_PATH] of Char;
  Files: TStringList;
  ActiveChild: TChildForm;
begin
  inherited;
  Files := TStringList.Create;
  try
    // 获取拖放的文件总数
    FileCount := DragQueryFile(Msg.Drop, $FFFFFFFF, nil, 0);
    // 遍历提取所有文件名
    for var I := 0 to FileCount - 1 do
    begin
      DragQueryFile(Msg.Drop, I, FileName, SizeOf(FileName));
      Files.Add(FileName);
    end;
    DragFinish(Msg.Drop); // 释放拖放句柄

    // 将文件列表传递给当前激活的子窗体
    if Assigned(MDIActiveChild) and (MDIActiveChild is TChildForm) then
    begin
      ActiveChild := TChildForm(MDIActiveChild);
      ActiveChild.HandleDroppedFiles(Files);
    end;
  finally
    Files.Free;
  end;
end;

2. 子窗体添加自定义处理方法 #

在子窗体中定义一个公开方法，接收主窗口传递的文件列表并处理：

type
  TChildForm = class(TForm)
    // 子窗体原有组件声明
  public
    procedure HandleDroppedFiles(Files: TStrings); // 自定义处理方法
  end;

implementation

procedure TChildForm.HandleDroppedFiles(Files: TStrings);
var
  I: Integer;
begin
  // 这里编写子窗体处理拖放文件的业务逻辑
  for I := 0 to Files.Count - 1 do
  begin
    // 示例：显示拖放的文件名
    Memo1.Lines.Add('拖放文件：' + Files[I]);
  end;
end;

关键说明 #

• MDI主窗口的MDIActiveChild属性可以获取当前获得焦点的子窗体，确保拖放操作传递给用户交互的目标窗口。
• 无需在子窗体中调用DragAcceptFiles，否则会与主窗口的拖放注册冲突，导致消息处理混乱。

内容的提问来源于stack exchange，提问作者TomR