如何为运行时创建的Panel设置事件以实现父子面板联动拖动

问题核心是：运行时创建的子Panel，你当前代码调用的是子Panel自身的Perform方法，所以只会拖动子Panel；而设计时是直接指定父Panel触发拖动，因此能带动父Panel一起移动。解决关键在于让子Panel的鼠标事件触发父Panel的拖动逻辑，以下是两种简单实现方式：

方法一：直接利用Panel的Parent属性 #

子Panel的Parent就是要拖动的父Panel，在子Panel的OnMouseDown事件里直接获取Parent并调用它的Perform：

procedure TYourForm.ChildPanelMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
  ParentPanel: TPanel;
begin
  if Button = mbLeft then
  begin
    // 确保Sender是Panel，且其父控件也是Panel
    if (Sender is TPanel) and ((Sender as TPanel).Parent is TPanel) then
    begin
      ParentPanel := TPanel((Sender as TPanel).Parent);
      ReleaseCapture;
      ParentPanel.Perform(WM_NCLBUTTONDOWN, HTCAPTION, 0);
    end;
  end;
end;

方法二：通过Tag存储父Panel引用 #

如果后续有多层嵌套或需要更灵活的关联，可在创建子Panel时将父Panel的指针存入子Panel的Tag属性：

// 创建父Panel和子Panel的代码
var
  ParentPanel, ChildPanel: TPanel;
begin
  ParentPanel := TPanel.Create(Self);
  ParentPanel.Parent := Self;
  // 设置父Panel的位置、大小等属性...

  ChildPanel := TPanel.Create(Self);
  ChildPanel.Parent := ParentPanel;
  ChildPanel.OnMouseDown := ChildPanelMouseDown;
  // 将父Panel的指针存入子Panel的Tag
  ChildPanel.Tag := NativeInt(ParentPanel);
  // 设置子Panel的位置、大小等属性...
end;

// 子Panel的OnMouseDown事件
procedure TYourForm.ChildPanelMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
  ParentPanel: TPanel;
begin
  if Button = mbLeft then
  begin
    ParentPanel := TPanel((Sender as TPanel).Tag);
    if Assigned(ParentPanel) then
    begin
      ReleaseCapture;
      ParentPanel.Perform(WM_NCLBUTTONDOWN, HTCAPTION, 0);
    end;
  end;
end;

原理说明：WM_NCLBUTTONDOWN消息用于通知系统“当前控件的标题栏被按下”，系统会据此拖动该控件。调用父Panel的这个方法后，系统会拖动父Panel，子Panel作为父Panel的子控件会自动跟随移动。

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