如何在未知目标窗体的情况下拖拽TPanel组件至任意窗体？

这个需求完全能实现！核心是利用Delphi自带的全局窗体管理和动态事件绑定，根本不需要硬编码引用任何窗体。我给你一套完整的可落地方案，分步骤来：

1. 用类助手给所有窗体添加统一拖拽逻辑 #

因为要让所有窗体都能接受Panel拖拽，又不想逐个写重复代码，用Delphi的**类助手（Class Helper）**扩展TForm是最优雅的方式——它能给所有TForm子类自动添加统一的拖拽处理逻辑，不用修改每个窗体的代码：

unit FormHelperUnit;

interface

uses
  Vcl.Forms, Vcl.StdCtrls;

type
  TFormHelper = class helper for TForm
  public
    procedure HandleDragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean);
    procedure HandleDragDrop(Sender, Source: TObject; X, Y: Integer);
  end;

implementation

uses
  System.SysUtils;

procedure TFormHelper.HandleDragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean);
begin
  // 只接受TPanel类型的拖拽源
  Accept := Source is TPanel;
end;

procedure TFormHelper.HandleDragDrop(Sender, Source: TObject; X, Y: Integer);
var
  DroppedPanel: TPanel;
begin
  if not (Source is TPanel) then Exit;

  DroppedPanel := TPanel(Source);
  
  // 把Panel从原父控件中移除
  DroppedPanel.Parent := nil;
  // 将Panel的父控件设置为当前窗体
  DroppedPanel.Parent := Self;
  // 设置Panel在目标窗体中的位置（X/Y是窗体客户区坐标，直接用即可）
  DroppedPanel.Left := X;
  DroppedPanel.Top := Y;
  // 更新标题为目标窗体名称
  DroppedPanel.Caption := Format('Panel is located in %s', [Self.Name]);
  // 可选：将Panel的Owner改为目标窗体，避免原窗体销毁时Panel被误删
  DroppedPanel.Owner := Self;
end;

end.

2. 自动给所有窗体绑定拖拽事件 #

接下来要确保所有已存在和未来动态创建的窗体都能用上上面的逻辑，我们可以借助Application的事件实现自动绑定：

在主窗体（比如Form1）上添加一个TApplicationEvents组件（在Vcl.AppEvnts单元中），然后处理它的OnCreateForm事件：

procedure TForm1.ApplicationEvents1CreateForm(Sender: TObject; var Form: TCustomForm);
begin
  // 只处理TForm类型的窗体
  if Form is TForm then
  begin
    with TForm(Form) do
    begin
      // 绑定拖拽事件到类助手的处理方法
      OnDragOver := HandleDragOver;
      OnDragDrop := HandleDragDrop;
    end;
  end;
end;

另外，别忘了给程序启动时已经创建的窗体绑定事件，在主窗体的OnCreate事件里补充：

procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
begin
  // 遍历所有已创建的窗体，绑定拖拽事件
  for i := 0 to Screen.FormCount - 1 do
  begin
    if Screen.Forms[i] is TForm then
    begin
      TForm(Screen.Forms[i]).OnDragOver := TForm(Screen.Forms[i]).HandleDragOver;
      TForm(Screen.Forms[i]).OnDragDrop := TForm(Screen.Forms[i]).HandleDragDrop;
    end;
  end;
end;

3. 开启Panel的拖拽功能 #

最后给Form1上的TPanel设置拖拽触发方式：

• 简单方式：选中Panel，在Object Inspector里把DragMode设为dmAutomatic——用户点击Panel就能直接开始拖拽。
• 精细控制方式：如果只想在点击Panel标题区域时启动拖拽，可以把DragMode设为dmManual，然后在Panel的OnMouseDown事件里手动触发：

procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  // 只有左键点击时启动拖拽
  if Button = mbLeft then
    TPanel(Sender).BeginDrag(False);
end;

关键说明 #

• 全程不需要硬编码任何窗体：所有逻辑基于TForm类助手和全局的Screen.Forms、Application事件，不管用户打开多少个窗体（Form1到FormN），都会自动生效。
• 坐标自动适配：OnDragDrop事件里的X/Y参数已经是目标窗体的客户区坐标，直接用来设置Panel位置即可。
• 内存安全：把Panel的Owner改为目标窗体，确保目标窗体关闭时Panel会被正确销毁，避免内存泄漏。

这样操作后，你把Form1的Panel拖到任何窗体上，它的标题都会自动更新为对应的窗体名称，完全符合你的需求！

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